home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1990-12-16 | 14.6 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| file
| data
| default
| |
| 100%
| xdgMime
| image/x-tga
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 1c f4 20 3e 3c | 4d 6f 72 70 68 24 44 69 |..... ><|Morph$Di|
|00000010| 72 3e 2e 21 72 75 6e 69 | 6d 61 67 65 0d 00 14 58 |r>.!runi|mage...X|
|00000020| f4 20 4f 4e 20 45 52 52 | 4f 52 20 50 52 4f 43 65 |. ON ERR|OR PROCe|
|00000030| 72 72 6f 72 3a 4f 53 43 | 4c 49 20 22 43 4c 4f 53 |rror:OSC|LI "CLOS|
|00000040| 45 22 3a 47 4f 54 4f 20 | 32 39 30 3a 52 45 4d 20 |E":GOTO |290:REM |
|00000050| 48 41 53 20 54 4f 20 47 | 4f 54 4f 20 4c 49 4e 45 |HAS TO G|OTO LINE|
|00000060| 20 57 48 49 43 48 20 53 | 41 59 53 20 50 52 4f 43 | WHICH S|AYS PROC|
|00000070| 70 6f 6c 6c 0d 00 1e 26 | ee 20 85 20 e7 20 a4 77 |poll...&|. . . .w|
|00000080| 69 6d 70 65 72 72 6f 72 | 3a f2 43 6c 6f 73 65 46 |imperror|:.CloseF|
|00000090| 69 6c 65 3a e5 20 8d 44 | 46 40 0d 00 28 19 f2 69 |ile:. .D|F@..(..i|
|000000a0| 6e 69 74 69 61 6c 69 73 | 65 5f 76 61 72 69 61 62 |nitialis|e_variab|
|000000b0| 6c 65 73 0d 00 32 0d f2 | 49 6e 69 74 77 69 6d 70 |les..2..|Initwimp|
|000000c0| 0d 00 3c 0e f2 69 6e 69 | 74 61 67 61 69 6e 0d 00 |..<..ini|tagain..|
|000000d0| 46 09 f2 70 6f 6c 6c 0d | 00 50 06 20 3a 0d 00 5a |F..poll.|.P. :..Z|
|000000e0| 11 dd f2 50 75 74 49 63 | 6f 6e 28 69 24 29 0d 00 |...PutIc|on(i$)..|
|000000f0| 64 18 21 71 31 25 3d 2d | 31 3a 71 31 25 21 34 3d |d.!q1%=-|1:q1%!4=|
|00000100| 69 63 6f 6e 68 25 0d 00 | 6e 1d c8 99 20 22 57 69 |iconh%..|n... "Wi|
|00000110| 6d 70 5f 44 65 6c 65 74 | 65 49 63 6f 6e 22 2c 2c |mp_Delet|eIcon",,|
|00000120| 71 31 25 0d 00 78 3c 21 | 71 31 25 3d 2d 31 3a 71 |q1%..x<!|q1%=-1:q|
|00000130| 31 25 21 34 3d 30 3a 71 | 31 25 21 38 3d 30 3a 71 |1%!4=0:q|1%!8=0:q|
|00000140| 31 25 21 31 32 3d 36 39 | 3a 71 31 25 21 31 36 3d |1%!12=69|:q1%!16=|
|00000150| 36 38 3a 71 31 25 21 32 | 30 3d 26 33 30 30 32 0d |68:q1%!2|0=&3002.|
|00000160| 00 82 2f 24 28 71 31 25 | 2b 32 34 29 3d 69 24 3a |../$(q1%|+24)=i$:|
|00000170| c8 99 22 57 69 6d 70 5f | 43 72 65 61 74 65 49 63 |.."Wimp_|CreateIc|
|00000180| 6f 6e 22 2c 2c 71 31 25 | 20 b8 20 69 63 25 0d 00 |on",,q1%| . ic%..|
|00000190| 8c 0e 69 63 6f 6e 68 25 | 3d 69 63 25 0d 00 96 05 |..iconh%|=ic%....|
|000001a0| e1 0d 00 a0 04 0d 00 aa | 0e dd f2 49 6e 69 74 77 |........|...Initw|
|000001b0| 69 6d 70 0d 00 b4 2f 6d | 61 78 77 73 25 3d 26 35 |imp.../m|axws%=&5|
|000001c0| 34 30 30 3a de 20 77 73 | 25 20 6d 61 78 77 73 25 |400:. ws|% maxws%|
|000001d0| 3a 77 73 65 6e 64 25 3d | 77 73 25 2b 6d 61 78 77 |:wsend%=|ws%+maxw|
|000001e0| 73 25 0d 00 be 0d de 20 | 71 31 25 20 32 35 36 0d |s%..... |q1% 256.|
|000001f0| 00 c8 0e de 20 71 32 25 | 20 31 31 39 32 0d 00 d2 |.... q2%| 1192...|
|00000200| 14 de 20 65 64 69 74 62 | 75 66 66 65 72 20 32 30 |.. editb|uffer 20|
|00000210| 30 0d 00 dc 2c de 20 6d | 65 6e 75 66 72 65 65 25 |0...,. m|enufree%|
|00000220| 20 26 33 37 30 3a 6d 65 | 6e 75 65 6e 64 25 3d 6d | &370:me|nuend%=m|
|00000230| 65 6e 75 66 72 65 65 25 | 2b 26 33 37 30 0d 00 e6 |enufree%|+&370...|
|00000240| 44 c8 99 22 57 69 6d 70 | 5f 49 6e 69 74 69 61 6c |D.."Wimp|_Initial|
|00000250| 69 73 65 22 2c 32 30 30 | 2c 26 34 42 35 33 34 31 |ise",200|,&4B5341|
|00000260| 35 34 2c 22 4d 6f 72 70 | 68 22 20 b8 20 76 65 72 |54,"Morp|h" . ver|
|00000270| 73 69 6f 6e 25 2c 74 61 | 73 6b 68 61 6e 64 6c 65 |sion%,ta|skhandle|
|00000280| 25 0d 00 f0 30 f4 20 2a | 2a 2a 2a 2a 20 61 6e 64 |%...0. *|**** and|
|00000290| 20 69 6e 73 74 61 6c 6c | 20 74 68 65 20 69 63 6f | install| the ico|
|000002a0| 6e 20 6f 6e 20 74 68 65 | 20 69 63 6f 6e 20 62 61 |n on the| icon ba|
|000002b0| 72 0d 00 fa 3c 21 71 31 | 25 3d 2d 31 3a 71 31 25 |r...<!q1|%=-1:q1%|
|000002c0| 21 34 3d 30 3a 71 31 25 | 21 38 3d 30 3a 71 31 25 |!4=0:q1%|!8=0:q1%|
|000002d0| 21 31 32 3d 36 39 3a 71 | 31 25 21 31 36 3d 36 38 |!12=69:q|1%!16=68|
|000002e0| 3a 71 31 25 21 32 30 3d | 26 33 30 30 32 0d 01 04 |:q1%!20=|&3002...|
|000002f0| 35 24 28 71 31 25 2b 32 | 34 29 3d 22 21 4d 6f 72 |5$(q1%+2|4)="!Mor|
|00000300| 70 68 22 3a c8 99 22 57 | 69 6d 70 5f 43 72 65 61 |ph":.."W|imp_Crea|
|00000310| 74 65 49 63 6f 6e 22 2c | 2c 71 31 25 20 b8 20 69 |teIcon",|,q1% . i|
|00000320| 63 25 0d 01 0e 0e 69 63 | 6f 6e 68 25 3d 69 63 25 |c%....ic|onh%=ic%|
|00000330| 0d 01 18 11 63 64 25 3d | 31 3a 66 69 6c 6c 25 3d |....cd%=|1:fill%=|
|00000340| 30 0d 01 22 33 c8 99 20 | 22 57 69 6d 70 5f 4f 70 |0.."3.. |"Wimp_Op|
|00000350| 65 6e 54 65 6d 70 6c 61 | 74 65 22 2c 2c 22 3c 4d |enTempla|te",,"<M|
|00000360| 6f 72 70 68 24 44 69 72 | 3e 2e 54 65 6d 70 6c 61 |orph$Dir|>.Templa|
|00000370| 74 65 73 22 0d 01 2c 3e | c8 99 20 22 57 69 6d 70 |tes"..,>|.. "Wimp|
|00000380| 5f 4c 6f 61 64 54 65 6d | 70 6c 61 74 65 22 2c 2c |_LoadTem|plate",,|
|00000390| 71 32 25 2c 77 73 25 2c | 77 73 65 6e 64 25 2c 2d |q2%,ws%,|wsend%,-|
|000003a0| 31 2c 22 69 6e 66 6f 22 | 2c 30 20 b8 20 2c 2c 77 |1,"info"|,0 . ,,w|
|000003b0| 73 25 0d 01 36 27 c8 99 | 20 22 57 69 6d 70 5f 43 |s%..6'..| "Wimp_C|
|000003c0| 72 65 61 74 65 57 69 6e | 64 6f 77 22 2c 2c 71 32 |reateWin|dow",,q2|
|000003d0| 25 20 b8 20 69 6e 66 6f | 25 0d 01 40 40 c8 99 20 |% . info|%..@@.. |
|000003e0| 22 57 69 6d 70 5f 4c 6f | 61 64 54 65 6d 70 6c 61 |"Wimp_Lo|adTempla|
|000003f0| 74 65 22 2c 2c 71 32 25 | 2c 77 73 25 2c 77 73 65 |te",,q2%|,ws%,wse|
|00000400| 6e 64 25 2c 2d 31 2c 22 | 73 61 76 65 61 73 22 2c |nd%,-1,"|saveas",|
|00000410| 30 20 b8 20 2c 2c 77 73 | 25 0d 01 4a 29 c8 99 20 |0 . ,,ws|%..J).. |
|00000420| 22 57 69 6d 70 5f 43 72 | 65 61 74 65 57 69 6e 64 |"Wimp_Cr|eateWind|
|00000430| 6f 77 22 2c 2c 71 32 25 | 20 b8 20 73 61 76 65 61 |ow",,q2%| . savea|
|00000440| 73 25 0d 01 54 3e c8 99 | 20 22 57 69 6d 70 5f 4c |s%..T>..| "Wimp_L|
|00000450| 6f 61 64 54 65 6d 70 6c | 61 74 65 22 2c 2c 71 32 |oadTempl|ate",,q2|
|00000460| 25 2c 77 73 25 2c 77 73 | 65 6e 64 25 2c 2d 31 2c |%,ws%,ws|end%,-1,|
|00000470| 22 70 69 63 31 22 2c 30 | 20 b8 20 2c 2c 77 73 25 |"pic1",0| . ,,ws%|
|00000480| 0d 01 5e 27 c8 99 20 22 | 57 69 6d 70 5f 43 72 65 |..^'.. "|Wimp_Cre|
|00000490| 61 74 65 57 69 6e 64 6f | 77 22 2c 2c 71 32 25 20 |ateWindo|w",,q2% |
|000004a0| b8 20 70 69 63 31 25 0d | 01 68 3e c8 99 20 22 57 |. pic1%.|.h>.. "W|
|000004b0| 69 6d 70 5f 4c 6f 61 64 | 54 65 6d 70 6c 61 74 65 |imp_Load|Template|
|000004c0| 22 2c 2c 71 32 25 2c 77 | 73 25 2c 77 73 65 6e 64 |",,q2%,w|s%,wsend|
|000004d0| 25 2c 2d 31 2c 22 70 69 | 63 32 22 2c 30 20 b8 20 |%,-1,"pi|c2",0 . |
|000004e0| 2c 2c 77 73 25 0d 01 72 | 27 c8 99 20 22 57 69 6d |,,ws%..r|'.. "Wim|
|000004f0| 70 5f 43 72 65 61 74 65 | 57 69 6e 64 6f 77 22 2c |p_Create|Window",|
|00000500| 2c 71 32 25 20 b8 20 70 | 69 63 32 25 0d 01 7c 42 |,q2% . p|ic2%..|B|
|00000510| c8 99 20 22 57 69 6d 70 | 5f 4c 6f 61 64 54 65 6d |.. "Wimp|_LoadTem|
|00000520| 70 6c 61 74 65 22 2c 2c | 71 32 25 2c 77 73 25 2c |plate",,|q2%,ws%,|
|00000530| 77 73 65 6e 64 25 2c 2d | 31 2c 22 66 69 6c 65 69 |wsend%,-|1,"filei|
|00000540| 6e 66 6f 22 2c 30 20 b8 | 20 2c 2c 77 73 25 0d 01 |nfo",0 .| ,,ws%..|
|00000550| 86 2b c8 99 20 22 57 69 | 6d 70 5f 43 72 65 61 74 |.+.. "Wi|mp_Creat|
|00000560| 65 57 69 6e 64 6f 77 22 | 2c 2c 71 32 25 20 b8 20 |eWindow"|,,q2% . |
|00000570| 66 69 6c 65 69 6e 66 6f | 25 0d 01 90 41 c8 99 20 |fileinfo|%...A.. |
|00000580| 22 57 69 6d 70 5f 4c 6f | 61 64 54 65 6d 70 6c 61 |"Wimp_Lo|adTempla|
|00000590| 74 65 22 2c 2c 71 32 25 | 2c 77 73 25 2c 77 73 65 |te",,q2%|,ws%,wse|
|000005a0| 6e 64 25 2c 2d 31 2c 22 | 61 6e 69 69 6e 66 6f 22 |nd%,-1,"|aniinfo"|
|000005b0| 2c 30 20 b8 20 2c 2c 77 | 73 25 0d 01 9a 2a c8 99 |,0 . ,,w|s%...*..|
|000005c0| 20 22 57 69 6d 70 5f 43 | 72 65 61 74 65 57 69 6e | "Wimp_C|reateWin|
|000005d0| 64 6f 77 22 2c 2c 71 32 | 25 20 b8 20 61 6e 69 69 |dow",,q2|% . anii|
|000005e0| 6e 66 6f 25 0d 01 a4 1c | 66 69 6c 65 6e 61 6d 65 |nfo%....|filename|
|000005f0| 25 3d 71 31 25 21 28 38 | 38 2b 36 34 2b 32 30 29 |%=q1%!(8|8+64+20)|
|00000600| 0d 01 ae 1b c8 99 20 22 | 57 69 6d 70 5f 43 6c 6f |...... "|Wimp_Clo|
|00000610| 73 65 54 65 6d 70 6c 61 | 74 65 22 0d 01 b8 0c 66 |seTempla|te"....f|
|00000620| 6d 6f 64 65 25 3d 31 0d | 01 c2 0b 71 75 69 74 25 |mode%=1.|...quit%|
|00000630| 3d a3 0d 01 cc 0a f7 20 | 8d 64 60 41 0d 01 d6 15 |=...... |.d`A....|
|00000640| 6d 61 69 6e 6d 65 6e 75 | 25 3d a4 63 72 6d 65 6e |mainmenu|%=.crmen|
|00000650| 75 0d 01 e0 2d dc 20 22 | 23 4d 6f 72 70 68 2c 49 |u...-. "|#Morph,I|
|00000660| 6e 66 6f 20 3e 69 6e 66 | 6f 25 2c 53 61 76 65 20 |nfo >inf|o%,Save |
|00000670| 3e 73 61 76 65 61 73 25 | 2c 51 75 69 74 22 0d 01 |>saveas%|,Quit"..|
|00000680| ea 0a f7 20 8d 64 7e 41 | 0d 01 f4 11 6d 69 73 63 |... .d~A|....misc|
|00000690| 25 3d a4 63 72 6d 65 6e | 75 0d 01 fe 27 dc 20 22 |%=.crmen|u...'. "|
|000006a0| 23 4d 69 73 63 2c 49 6e | 66 6f 3e 69 6e 66 6f 25 |#Misc,In|fo>info%|
|000006b0| 2c 46 69 6c 65 3e 66 69 | 6c 65 69 6e 66 6f 25 22 |,File>fi|leinfo%"|
|000006c0| 0d 02 08 0a f7 20 8d 54 | 5c 42 0d 02 12 16 64 72 |..... .T|\B....dr|
|000006d0| 61 77 6d 65 6e 75 31 25 | 3d a4 63 72 6d 65 6e 75 |awmenu1%|=.crmenu|
|000006e0| 0d 02 1c 49 dc 20 22 23 | 4d 6f 72 70 68 2c 4d 69 |...I. "#|Morph,Mi|
|000006f0| 73 63 3e 6d 69 73 63 25 | 2c 41 6e 69 6d 61 74 65 |sc>misc%|,Animate|
|00000700| 3e 61 6e 69 69 6e 66 6f | 25 2c 4e 6f 20 46 69 6c |>aniinfo|%,No Fil|
|00000710| 6c 2c 53 61 76 65 3e 73 | 61 76 65 61 73 25 2c 43 |l,Save>s|aveas%,C|
|00000720| 6c 65 61 72 20 41 6c 6c | 22 0d 02 26 0a f7 20 8d |lear All|"..&.. .|
|00000730| 54 7a 42 0d 02 30 16 64 | 72 61 77 6d 65 6e 75 32 |TzB..0.d|rawmenu2|
|00000740| 25 3d a4 63 72 6d 65 6e | 75 0d 02 3a 49 dc 20 22 |%=.crmen|u..:I. "|
|00000750| 23 4d 6f 72 70 68 2c 4d | 69 73 63 3e 6d 69 73 63 |#Morph,M|isc>misc|
|00000760| 25 2c 41 6e 69 6d 61 74 | 65 3e 61 6e 69 69 6e 66 |%,Animat|e>aniinf|
|00000770| 6f 25 2c 46 69 6c 6c 20 | 4f 6e 2c 53 61 76 65 3e |o%,Fill |On,Save>|
|00000780| 73 61 76 65 61 73 25 2c | 43 6c 65 61 72 20 41 6c |saveas%,|Clear Al|
|00000790| 6c 22 0d 02 44 05 e1 0d | 02 4e 06 20 3a 0d 02 58 |l"..D...|.N. :..X|
|000007a0| 0e dd a4 72 74 6f 7a 28 | 70 25 29 0d 02 62 08 ea |...rtoz(|p%)..b..|
|000007b0| 20 71 24 0d 02 6c 1e c8 | 95 20 3f 70 25 3c 3e 30 | q$..l..|. ?p%<>0|
|000007c0| 20 71 24 2b 3d bd 3f 70 | 25 3a 70 25 2b 3d 31 3a | q$+=.?p|%:p%+=1:|
|000007d0| ce 0d 02 76 07 3d 71 24 | 0d 02 80 05 20 0d 02 8a |...v.=q$|.... ...|
|000007e0| 11 dd f2 72 65 63 65 69 | 76 65 28 72 25 29 0d 02 |...recei|ve(r%)..|
|000007f0| 94 11 f4 20 4c 4f 43 41 | 4c 20 45 52 52 4f 52 0d |... LOCA|L ERROR.|
|00000800| 02 9e 1c f4 20 4f 4e 20 | 45 52 52 4f 52 20 4c 4f |.... ON |ERROR LO|
|00000810| 43 41 4c 20 45 4e 44 50 | 52 4f 43 0d 02 a8 0f c8 |CAL ENDP|ROC.....|
|00000820| 8e 20 71 31 25 21 31 36 | 20 ca 0d 02 b2 11 c9 30 |. q1%!16| ......0|
|00000830| 3a 20 f2 73 68 75 74 64 | 6f 77 6e 0d 02 bc 11 c9 |: .shutd|own.....|
|00000840| 20 32 3a f2 44 61 74 61 | 53 61 76 65 0d 02 c6 25 | 2:.Data|Save...%|
|00000850| c9 20 33 3a 20 c8 99 22 | 57 69 6d 70 5f 47 65 74 |. 3: .."|Wimp_Get|
|00000860| 50 6f 69 6e 74 65 72 49 | 6e 66 6f 22 2c 2c 71 32 |PointerI|nfo",,q2|
|00000870| 25 0d 02 d0 15 66 69 6c | 65 5f 74 79 70 65 25 3d |%....fil|e_type%=|
|00000880| 71 31 25 21 34 30 0d 02 | da 18 66 69 6c 65 31 24 |q1%!40..|..file1$|
|00000890| 3d a4 72 74 6f 7a 28 71 | 31 25 2b 34 34 29 0d 02 |=.rtoz(q|1%+44)..|
|000008a0| e4 0c 6a 75 73 74 24 3d | 22 22 0d 02 ee 1f e7 20 |..just$=|""..... |
|000008b0| 66 69 6c 65 5f 74 79 70 | 65 25 3c 3e 26 37 65 66 |file_typ|e%<>&7ef|
|000008c0| 20 8c 20 e5 20 8d 74 4e | 43 0d 02 f8 1d e3 20 51 | . . .tN|C..... Q|
|000008d0| 51 51 25 3d a9 28 66 69 | 6c 65 31 24 29 20 b8 20 |QQ%=.(fi|le1$) . |
|000008e0| 31 20 88 20 2d 31 0d 03 | 02 20 e7 20 c1 66 69 6c |1 . -1..|. . .fil|
|000008f0| 65 31 24 2c 51 51 51 25 | 2c 31 29 3d 22 2e 22 20 |e1$,QQQ%|,1)="." |
|00000900| 8c 20 8d 54 56 43 0d 03 | 0c 0a ed 20 51 51 51 25 |. .TVC..|... QQQ%|
|00000910| 0d 03 16 19 6a 75 73 74 | 24 3d c1 66 69 6c 65 31 |....just|$=.file1|
|00000920| 24 2c 51 51 51 25 2b 31 | 29 0d 03 20 16 f2 6c 6f |$,QQQ%+1|).. ..lo|
|00000930| 61 64 5f 70 69 63 73 28 | 66 69 6c 65 31 24 29 0d |ad_pics(|file1$).|
|00000940| 03 2a 0e 21 71 31 25 3d | 70 69 63 31 25 0d 03 34 |.*.!q1%=|pic1%..4|
|00000950| 21 c8 99 20 22 57 69 6d | 70 5f 47 65 74 57 69 6e |!.. "Wim|p_GetWin|
|00000960| 64 6f 77 53 74 61 74 65 | 22 2c 2c 71 31 25 0d 03 |dowState|",,q1%..|
|00000970| 3e 1d c8 99 20 22 57 69 | 6d 70 5f 4f 70 65 6e 57 |>... "Wi|mp_OpenW|
|00000980| 69 6e 64 6f 77 22 2c 2c | 71 31 25 0d 03 48 0e 21 |indow",,|q1%..H.!|
|00000990| 71 31 25 3d 70 69 63 32 | 25 0d 03 52 21 c8 99 20 |q1%=pic2|%..R!.. |
|000009a0| 22 57 69 6d 70 5f 47 65 | 74 57 69 6e 64 6f 77 53 |"Wimp_Ge|tWindowS|
|000009b0| 74 61 74 65 22 2c 2c 71 | 31 25 0d 03 5c 1d c8 99 |tate",,q|1%..\...|
|000009c0| 20 22 57 69 6d 70 5f 4f | 70 65 6e 57 69 6e 64 6f | "Wimp_O|penWindo|
|000009d0| 77 22 2c 2c 71 31 25 0d | 03 66 20 f2 73 65 74 74 |w",,q1%.|.f .sett|
|000009e0| 65 78 74 28 66 69 6c 65 | 69 6e 66 6f 25 2c 33 2c |ext(file|info%,3,|
|000009f0| 66 69 6c 65 31 24 29 0d | 03 70 31 f2 73 65 74 74 |file1$).|.p1.sett|
|00000a00| 65 78 74 28 66 69 6c 65 | 69 6e 66 6f 25 2c 34 2c |ext(file|info%,4,|
|00000a10| c3 28 43 4e 54 25 2b 46 | 43 4e 54 25 29 2b 22 20 |.(CNT%+F|CNT%)+" |
|00000a20| 70 6f 69 6e 74 73 22 29 | 0d 03 7a 2b c8 99 20 22 |points")|..z+.. "|
|00000a30| 57 69 6d 70 5f 46 6f 72 | 63 65 52 65 64 72 61 77 |Wimp_For|ceRedraw|
|00000a40| 22 2c 70 69 63 31 25 2c | 30 2c 30 2c 36 34 30 2c |",pic1%,|0,0,640,|
|00000a50| 35 31 32 0d 03 84 2b c8 | 99 20 22 57 69 6d 70 5f |512...+.|. "Wimp_|
|00000a60| 46 6f 72 63 65 52 65 64 | 72 61 77 22 2c 70 69 63 |ForceRed|raw",pic|
|00000a70| 32 25 2c 30 2c 30 2c 36 | 34 30 2c 35 31 32 0d 03 |2%,0,0,6|40,512..|
|00000a80| 8e 05 cb 0d 03 98 05 e1 | 0d 03 a2 05 3a 0d 03 ac |........|....:...|
|00000a90| 0e dd f2 73 68 75 74 64 | 6f 77 6e 0d 03 b6 0f 24 |...shutd|own....$|
|00000aa0| 71 32 25 3d 22 54 41 53 | 4b 22 0d 03 c0 27 c8 99 |q2%="TAS|K"...'..|
|00000ab0| 22 57 69 6d 70 5f 43 6c | 6f 73 65 44 6f 77 6e 22 |"Wimp_Cl|oseDown"|
|00000ac0| 2c 74 61 73 6b 68 61 6e | 64 6c 65 25 2c 21 71 32 |,taskhan|dle%,!q2|
|00000ad0| 25 0d 03 ca 05 e0 0d 03 | d4 05 e1 0d 03 de 05 20 |%.......|....... |
|00000ae0| 0d 03 e8 20 dd f2 67 65 | 74 6f 72 69 67 69 6e 28 |... ..ge|torigin(|
|00000af0| 71 31 25 2c f8 20 78 30 | 25 2c f8 20 79 30 25 29 |q1%,. x0|%,. y0%)|
|00000b00| 0d 03 f2 14 78 30 25 3d | 71 31 25 21 34 2d 71 31 |....x0%=|q1%!4-q1|
|00000b10| 25 21 32 30 0d 03 fc 15 | 79 30 25 3d 71 31 25 21 |%!20....|y0%=q1%!|
|00000b20| 31 36 2d 71 31 25 21 32 | 34 0d 04 06 05 e1 0d 04 |16-q1%!2|4.......|
|00000b30| 10 05 20 0d 04 1a 0c dd | f2 52 65 64 72 61 77 0d |.. .....|.Redraw.|
|00000b40| 04 24 0f 71 31 25 21 30 | 3d 70 69 63 31 25 0d 04 |.$.q1%!0|=pic1%..|
|00000b50| 2e 26 c8 99 22 57 69 6d | 70 5f 52 65 64 72 61 77 |.&.."Wim|p_Redraw|
|00000b60| 57 69 6e 64 6f 77 22 2c | 2c 71 31 25 20 b8 20 6d |Window",|,q1% . m|
|00000b70| 6f 72 65 25 0d 04 38 1b | f2 67 65 74 6f 72 69 67 |ore%..8.|.getorig|
|00000b80| 69 6e 28 71 31 25 2c 78 | 30 25 2c 79 30 25 29 0d |in(q1%,x|0%,y0%).|
|00000b90| 04 42 0c c8 95 20 6d 6f | 72 65 25 0d 04 4c 16 f2 |.B... mo|re%..L..|
|00000ba0| 64 72 61 77 70 69 63 31 | 28 78 30 25 2c 79 30 25 |drawpic1|(x0%,y0%|
|00000bb0| 29 0d 04 56 26 c8 99 22 | 57 69 6d 70 5f 47 65 74 |)..V&.."|Wimp_Get|
|00000bc0| 52 65 63 74 61 6e 67 6c | 65 22 2c 2c 71 31 25 20 |Rectangl|e",,q1% |
|00000bd0| b8 20 6d 6f 72 65 25 0d | 04 60 05 ce 0d 04 6a 0f |. more%.|.`....j.|
|00000be0| 71 31 25 21 30 3d 70 69 | 63 32 25 0d 04 74 26 c8 |q1%!0=pi|c2%..t&.|
|00000bf0| 99 22 57 69 6d 70 5f 52 | 65 64 72 61 77 57 69 6e |."Wimp_R|edrawWin|
|00000c00| 64 6f 77 22 2c 2c 71 31 | 25 20 b8 20 6d 6f 72 65 |dow",,q1|% . more|
|00000c10| 25 0d 04 7e 1b f2 67 65 | 74 6f 72 69 67 69 6e 28 |%..~..ge|torigin(|
|00000c20| 71 31 25 2c 78 30 25 2c | 79 30 25 29 0d 04 88 0c |q1%,x0%,|y0%)....|
|00000c30| c8 95 20 6d 6f 72 65 25 | 0d 04 92 16 f2 64 72 61 |.. more%|.....dra|
|00000c40| 77 70 69 63 32 28 78 30 | 25 2c 79 30 25 29 0d 04 |wpic2(x0|%,y0%)..|
|00000c50| 9c 26 c8 99 22 57 69 6d | 70 5f 47 65 74 52 65 63 |.&.."Wim|p_GetRec|
|00000c60| 74 61 6e 67 6c 65 22 2c | 2c 71 31 25 20 b8 20 6d |tangle",|,q1% . m|
|00000c70| 6f 72 65 25 0d 04 a6 05 | ce 0d 04 b0 05 e1 0d 04 |ore%....|........|
|00000c80| ba 04 0d 04 c4 11 dd f2 | 64 6f 28 78 30 25 2c 79 |........|do(x0%,y|
|00000c90| 30 25 29 0d 04 ce 1c c8 | 8f 20 c8 90 20 32 30 30 |0%).....|. .. 200|
|00000ca0| 2b 78 30 25 2c 32 30 30 | 2b 79 30 25 2c 35 30 0d |+x0%,200|+y0%,50.|
|00000cb0| 04 d8 05 e1 0d 04 e2 05 | 3a 0d 04 ec 10 dd f2 6d |........|:......m|
|00000cc0| 6f 75 73 65 63 6c 69 63 | 6b 0d 04 f6 0d c8 8e 71 |ouseclic|k......q|
|00000cd0| 31 25 21 38 20 ca 0d 05 | 00 39 c9 20 32 3a 20 e7 |1%!8 ...|.9. 2: .|
|00000ce0| 20 71 31 25 21 31 32 3d | 2d 32 20 8c 20 f2 64 6f | q1%!12=|-2 . .do|
|00000cf0| 6d 65 6e 75 28 6d 61 69 | 6e 6d 65 6e 75 25 2c 21 |menu(mai|nmenu%,!|
|00000d00| 71 31 25 2d 34 34 2c 39 | 36 2b 33 2a 34 34 29 0d |q1%-44,9|6+3*44).|
|00000d10| 05 0a 2b 20 20 20 20 20 | 20 20 20 e7 20 71 31 25 |..+ | . q1%|
|00000d20| 21 31 32 3d 70 69 63 31 | 25 20 84 20 71 31 25 21 |!12=pic1|% . q1%!|
|00000d30| 31 32 3d 70 69 63 32 25 | 20 8c 0d 05 14 16 20 20 |12=pic2%| ..... |
|00000d40| 20 20 20 20 20 20 c8 8e | 20 66 69 6c 6c 25 20 ca | ..| fill% .|
|00000d50| 0d 05 1e 11 20 20 20 20 | 20 20 20 20 c9 20 30 20 |.... | . 0 |
|00000d60| 3a 0d 05 28 2d 20 20 20 | 20 20 20 20 20 f2 64 6f |:..(- | .do|
|00000d70| 6d 65 6e 75 28 64 72 61 | 77 6d 65 6e 75 31 25 2c |menu(dra|wmenu1%,|
|00000d80| 21 71 31 25 2d 39 34 2c | 71 31 25 21 34 29 0d 05 |!q1%-94,|q1%!4)..|
|00000d90| 32 11 20 20 20 20 20 20 | 20 20 c9 20 31 20 3a 0d |2. | . 1 :.|
|00000da0| 05 3c 2d 20 20 20 20 20 | 20 20 20 f2 64 6f 6d 65 |.<- | .dome|
|00000db0| 6e 75 28 64 72 61 77 6d | 65 6e 75 32 25 2c 21 71 |nu(drawm|enu2%,!q|
|00000dc0| 31 25 2d 39 34 2c 71 31 | 25 21 34 29 0d 05 46 0d |1%-94,q1|%!4)..F.|
|00000dd0| 20 20 20 20 20 20 20 20 | cb 0d 05 50 0d 20 20 20 | |...P. |
|00000de0| 20 20 20 20 20 cd 0d 05 | 5a 04 0d 05 64 26 c9 20 | ...|Z...d&. |
|00000df0| 31 3a 20 c8 99 20 22 57 | 69 6d 70 5f 47 65 74 50 |1: .. "W|imp_GetP|
|00000e00| 6f 69 6e 74 65 72 49 6e | 66 6f 22 2c 2c 71 32 25 |ointerIn|fo",,q2%|
|00000e10| 0d 05 6e 22 20 20 20 20 | 20 20 20 20 e7 20 71 32 |..n" | . q2|
|00000e20| 25 21 31 32 3d 70 69 63 | 31 25 20 8c 20 63 64 25 |%!12=pic|1% . cd%|
|00000e30| 3d 31 0d 05 78 22 20 20 | 20 20 20 20 20 20 e7 20 |=1..x" | . |
|00000e40| 71 32 25 21 31 32 3d 70 | 69 63 32 25 20 8c 20 63 |q2%!12=p|ic2% . c|
|00000e50| 64 25 3d 32 0d 05 82 1e | 20 20 20 20 20 20 20 20 |d%=2....| |
|00000e60| e7 20 63 64 25 3d 31 20 | 80 20 43 4e 54 25 3e 30 |. cd%=1 |. CNT%>0|
|00000e70| 20 8c 0d 05 8c 13 20 20 | 20 20 20 20 20 20 43 4e | ..... | CN|
|00000e80| 54 25 2d 3d 31 0d 05 96 | 32 20 20 20 20 20 20 20 |T%-=1...|2 |
|00000e90| 20 f2 73 65 74 74 65 78 | 74 28 70 69 63 31 25 2c | .settex|t(pic1%,|
|00000ea0| 32 2c 22 4e 6f 2e 70 6f | 69 6e 74 73 3a 22 2b c3 |2,"No.po|ints:"+.|
|00000eb0| 28 43 4e 54 25 29 29 0d | 05 a0 34 20 20 20 20 20 |(CNT%)).|..4 |
|00000ec0| 20 20 20 c8 99 20 22 57 | 69 6d 70 5f 46 6f 72 63 | .. "W|imp_Forc|
|00000ed0| 65 52 65 64 72 61 77 22 | 2c 70 69 63 31 25 2c 30 |eRedraw"|,pic1%,0|
|00000ee0| 2c 35 30 2c 36 34 30 2c | 35 31 32 0d 05 aa 0d 20 |,50,640,|512.... |
|00000ef0| 20 20 20 20 20 20 20 cd | 0d 05 b4 1f 20 20 20 20 | .|.... |
|00000f00| 20 20 20 20 e7 20 63 64 | 25 3d 32 20 80 20 46 43 | . cd|%=2 . FC|
|00000f10| 4e 54 25 3e 30 20 8c 0d | 05 be 14 20 20 20 20 20 |NT%>0 ..|... |
|00000f20| 20 20 20 46 43 4e 54 25 | 2d 3d 31 0d 05 c8 33 20 | FCNT%|-=1...3 |
|00000f30| 20 20 20 20 20 20 20 f2 | 73 65 74 74 65 78 74 28 | .|settext(|
|00000f40| 70 69 63 32 25 2c 32 2c | 22 4e 6f 2e 70 6f 69 6e |pic2%,2,|"No.poin|
|00000f50| 74 73 3a 22 2b c3 28 46 | 43 4e 54 25 29 29 0d 05 |ts:"+.(F|CNT%))..|
|00000f60| d2 34 20 20 20 20 20 20 | 20 20 c8 99 20 22 57 69 |.4 | .. "Wi|
|00000f70| 6d 70 5f 46 6f 72 63 65 | 52 65 64 72 61 77 22 2c |mp_Force|Redraw",|
|00000f80| 70 69 63 32 25 2c 30 2c | 35 30 2c 36 34 30 2c 35 |pic2%,0,|50,640,5|
|00000f90| 31 32 0d 05 dc 0d 20 20 | 20 20 20 20 20 20 cd 0d |12.... | ..|
|00000fa0| 05 e6 39 20 20 20 20 20 | 20 20 20 f2 73 65 74 74 |..9 | .sett|
|00000fb0| 65 78 74 28 66 69 6c 65 | 69 6e 66 6f 25 2c 34 2c |ext(file|info%,4,|
|00000fc0| c3 28 46 43 4e 54 25 2b | 43 4e 54 25 29 2b 22 20 |.(FCNT%+|CNT%)+" |
|00000fd0| 70 6f 69 6e 74 73 22 29 | 0d 05 f0 04 0d 05 fa 26 |points")|.......&|
|00000fe0| c9 20 34 3a 20 c8 99 20 | 22 57 69 6d 70 5f 47 65 |. 4: .. |"Wimp_Ge|
|00000ff0| 74 50 6f 69 6e 74 65 72 | 49 6e 66 6f 22 2c 2c 71 |tPointer|Info",,q|
|00001000| 32 25 0d 06 04 12 20 20 | 20 20 20 20 20 20 6e 6f |2%.... | no|
|00001010| 77 25 3d 30 0d 06 0e 29 | 20 20 20 20 20 20 20 20 |w%=0...)| |
|00001020| e7 20 71 32 25 21 31 32 | 3d 70 69 63 31 25 20 8c |. q2%!12|=pic1% .|
|00001030| 20 63 64 25 3d 31 3a 6e | 6f 77 25 3d 31 0d 06 18 | cd%=1:n|ow%=1...|
|00001040| 29 20 20 20 20 20 20 20 | 20 e7 20 71 32 25 21 31 |) | . q2%!1|
|00001050| 32 3d 70 69 63 32 25 20 | 8c 20 63 64 25 3d 32 3a |2=pic2% |. cd%=2:|
|00001060| 6e 6f 77 25 3d 31 0d 06 | 22 20 20 20 20 20 20 20 |now%=1..|" |
|00001070| 20 20 e7 20 63 64 25 3d | 31 20 8c 20 21 71 32 25 | . cd%=|1 . !q2%|
|00001080| 3d 70 69 63 31 25 0d 06 | 2c 20 20 20 20 20 20 20 |=pic1%..|, |
|00001090| 20 20 e7 20 63 64 25 3d | 32 20 8c 20 21 71 32 25 | . cd%=|2 . !q2%|
|000010a0| 3d 70 69 63 32 25 0d 06 | 36 29 20 20 20 20 20 20 |=pic2%..|6) |
|000010b0| 20 20 c8 99 20 22 57 69 | 6d 70 5f 47 65 74 57 69 | .. "Wi|mp_GetWi|
|000010c0| 6e 64 6f 77 53 74 61 74 | 65 22 2c 2c 71 32 25 0d |ndowStat|e",,q2%.|
|000010d0| 06 40 1f 20 20 20 20 20 | 20 20 20 78 6f 25 3d 71 |.@. | xo%=q|
|000010e0| 32 25 21 34 3a 79 6f 25 | 3d 71 32 25 21 38 0d 06 |2%!4:yo%|=q2%!8..|
|000010f0| 4a 29 20 20 20 20 20 20 | 20 20 c8 99 20 22 57 69 |J) | .. "Wi|
|00001100| 6d 70 5f 47 65 74 50 6f | 69 6e 74 65 72 49 6e 66 |mp_GetPo|interInf|
|00001110| 6f 22 2c 2c 71 32 25 0d | 06 54 1f 20 20 20 20 20 |o",,q2%.|.T. |
|00001120| 20 20 20 70 78 25 3d 71 | 32 25 21 30 3a 70 79 25 | px%=q|2%!0:py%|
|00001130| 3d 71 32 25 21 34 0d 06 | 5e 16 20 20 20 20 20 20 |=q2%!4..|^. |
|00001140| 20 20 e7 20 6e 6f 77 25 | 3d 31 20 8c 0d 06 68 20 | . now%|=1 ...h |
|00001150| 20 20 20 20 20 20 20 20 | e7 20 63 64 25 3d 31 20 | |. cd%=1 |
|00001160| 80 20 43 4e 54 25 3c 33 | 30 30 20 8c 0d 06 72 13 |. CNT%<3|00 ...r.|
|00001170| 20 20 20 20 20 20 20 20 | 43 4e 54 25 2b 3d 31 0d | |CNT%+=1.|
|00001180| 06 7c 2d 20 20 20 20 20 | 20 20 20 f2 73 65 74 74 |.|- | .sett|
|00001190| 65 78 74 28 70 69 63 31 | 25 2c 30 2c 22 58 3a 22 |ext(pic1|%,0,"X:"|
|000011a0| 2b c3 28 70 78 25 2d 78 | 6f 25 29 29 0d 06 86 2d |+.(px%-x|o%))...-|
|000011b0| 20 20 20 20 20 20 20 20 | f2 73 65 74 74 65 78 74 | |.settext|
|000011c0| 28 70 69 63 31 25 2c 31 | 2c 22 59 3a 22 2b c3 28 |(pic1%,1|,"Y:"+.(|
|000011d0| 70 79 25 2d 79 6f 25 29 | 29 0d 06 90 35 20 20 20 |py%-yo%)|)...5 |
|000011e0| 20 20 20 20 20 58 25 28 | 43 4e 54 25 29 3d 28 70 | X%(|CNT%)=(p|
|000011f0| 78 25 2d 78 6f 25 29 2a | 32 3a 59 25 28 43 4e 54 |x%-xo%)*|2:Y%(CNT|
|00001200| 25 29 3d 28 70 79 25 2d | 79 6f 25 29 2a 32 0d 06 |%)=(py%-|yo%)*2..|
|00001210| 9a 32 20 20 20 20 20 20 | 20 20 f2 73 65 74 74 65 |.2 | .sette|
|00001220| 78 74 28 70 69 63 31 25 | 2c 32 2c 22 4e 6f 2e 70 |xt(pic1%|,2,"No.p|
|00001230| 6f 69 6e 74 73 3a 22 2b | c3 28 43 4e 54 25 29 29 |oints:"+|.(CNT%))|
|00001240| 0d 06 a4 34 20 20 20 20 | 20 20 20 20 c8 99 20 22 |...4 | .. "|
|00001250| 57 69 6d 70 5f 46 6f 72 | 63 65 52 65 64 72 61 77 |Wimp_For|ceRedraw|
|00001260| 22 2c 70 69 63 31 25 2c | 30 2c 35 30 2c 36 34 30 |",pic1%,|0,50,640|
|00001270| 2c 35 31 32 0d 06 ae 0d | 20 20 20 20 20 20 20 20 |,512....| |
|00001280| cd 0d 06 b8 04 0d 06 c2 | 21 20 20 20 20 20 20 20 |........|! |
|00001290| 20 e7 20 63 64 25 3d 32 | 20 80 20 46 43 4e 54 25 | . cd%=2| . FCNT%|
|000012a0| 3c 33 30 30 20 8c 0d 06 | cc 14 20 20 20 20 20 20 |<300 ...|.. |
|000012b0| 20 20 46 43 4e 54 25 2b | 3d 31 0d 06 d6 2d 20 20 | FCNT%+|=1...- |
|000012c0| 20 20 20 20 20 20 f2 73 | 65 74 74 65 78 74 28 70 | .s|ettext(p|
|000012d0| 69 63 32 25 2c 30 2c 22 | 58 3a 22 2b c3 28 70 78 |ic2%,0,"|X:"+.(px|
|000012e0| 25 2d 78 6f 25 29 29 0d | 06 e0 2d 20 20 20 20 20 |%-xo%)).|..- |
|000012f0| 20 20 20 f2 73 65 74 74 | 65 78 74 28 70 69 63 32 | .sett|ext(pic2|
|00001300| 25 2c 31 2c 22 59 3a 22 | 2b c3 28 70 79 25 2d 79 |%,1,"Y:"|+.(py%-y|
|00001310| 6f 25 29 29 0d 06 ea 37 | 20 20 20 20 20 20 20 20 |o%))...7| |
|00001320| 41 25 28 46 43 4e 54 25 | 29 3d 28 70 78 25 2d 78 |A%(FCNT%|)=(px%-x|
|00001330| 6f 25 29 2a 32 3a 42 25 | 28 46 43 4e 54 25 29 3d |o%)*2:B%|(FCNT%)=|
|00001340| 28 70 79 25 2d 79 6f 25 | 29 2a 32 0d 06 f4 33 20 |(py%-yo%|)*2...3 |
|00001350| 20 20 20 20 20 20 20 f2 | 73 65 74 74 65 78 74 28 | .|settext(|
|00001360| 70 69 63 32 25 2c 32 2c | 22 4e 6f 2e 70 6f 69 6e |pic2%,2,|"No.poin|
|00001370| 74 73 3a 22 2b c3 28 46 | 43 4e 54 25 29 29 0d 06 |ts:"+.(F|CNT%))..|
|00001380| fe 34 20 20 20 20 20 20 | 20 20 c8 99 20 22 57 69 |.4 | .. "Wi|
|00001390| 6d 70 5f 46 6f 72 63 65 | 52 65 64 72 61 77 22 2c |mp_Force|Redraw",|
|000013a0| 70 69 63 32 25 2c 30 2c | 35 30 2c 36 34 30 2c 35 |pic2%,0,|50,640,5|
|000013b0| 31 32 0d 07 08 0d 20 20 | 20 20 20 20 20 20 cd 0d |12.... | ..|
|000013c0| 07 12 39 20 20 20 20 20 | 20 20 20 f2 73 65 74 74 |..9 | .sett|
|000013d0| 65 78 74 28 66 69 6c 65 | 69 6e 66 6f 25 2c 34 2c |ext(file|info%,4,|
|000013e0| c3 28 46 43 4e 54 25 2b | 43 4e 54 25 29 2b 22 20 |.(FCNT%+|CNT%)+" |
|000013f0| 70 6f 69 6e 74 73 22 29 | 0d 07 1c 0d 20 20 20 20 |points")|.... |
|00001400| 20 20 20 20 cd 0d 07 26 | 04 0d 07 30 1f 20 20 20 | ...&|...0. |
|00001410| 20 20 20 20 20 e7 20 71 | 31 25 21 31 32 3d 61 6e | . q|1%!12=an|
|00001420| 69 69 6e 66 6f 25 20 8c | 0d 07 3a 12 20 20 20 20 |iinfo% .|..:. |
|00001430| 20 20 20 20 65 6e 74 25 | 3d eb 0d 07 44 14 20 20 | ent%|=...D. |
|00001440| 20 20 20 20 20 20 f2 64 | 69 73 70 6c 61 79 0d 07 | .d|isplay..|
|00001450| 4e 22 20 20 20 20 20 20 | 20 20 c8 99 20 22 57 69 |N" | .. "Wi|
|00001460| 6d 70 5f 53 65 74 4d 6f | 64 65 22 2c 65 6e 74 25 |mp_SetMo|de",ent%|
|00001470| 0d 07 58 0d 20 20 20 20 | 20 20 20 20 87 0d 07 62 |..X. | ...b|
|00001480| 0d 20 20 20 20 20 20 20 | 20 cd 0d 07 6c 04 0d 07 |. | ...l...|
|00001490| 76 19 20 20 20 20 20 20 | 20 20 e7 20 71 31 25 21 |v. | . q1%!|
|000014a0| 31 32 3d 2d 32 20 8c 0d | 07 80 04 0d 07 8a 4e 20 |12=-2 ..|......N |
|000014b0| 20 20 20 20 20 20 20 21 | 71 31 25 3d 70 69 63 31 | !|q1%=pic1|
|000014c0| 25 3a c8 99 20 22 57 69 | 6d 70 5f 47 65 74 57 69 |%:.. "Wi|mp_GetWi|
|000014d0| 6e 64 6f 77 53 74 61 74 | 65 22 2c 2c 71 31 25 3a |ndowStat|e",,q1%:|
|000014e0| c8 99 20 22 57 69 6d 70 | 5f 4f 70 65 6e 57 69 6e |.. "Wimp|_OpenWin|
|000014f0| 64 6f 77 22 2c 2c 71 31 | 25 0d 07 94 4e 20 20 20 |dow",,q1|%...N |
|00001500| 20 20 20 20 20 21 71 31 | 25 3d 70 69 63 32 25 3a | !q1|%=pic2%:|
|00001510| c8 99 20 22 57 69 6d 70 | 5f 47 65 74 57 69 6e 64 |.. "Wimp|_GetWind|
|00001520| 6f 77 53 74 61 74 65 22 | 2c 2c 71 31 25 3a c8 99 |owState"|,,q1%:..|
|00001530| 20 22 57 69 6d 70 5f 4f | 70 65 6e 57 69 6e 64 6f | "Wimp_O|penWindo|
|00001540| 77 22 2c 2c 71 31 25 0d | 07 9e 0d 20 20 20 20 20 |w",,q1%.|... |
|00001550| 20 20 20 cd 0d 07 a8 29 | 20 20 20 20 20 20 20 20 | ....)| |
|00001560| e7 20 71 31 25 21 31 32 | 3d 73 61 76 65 61 73 25 |. q1%!12|=saveas%|
|00001570| 20 80 20 71 31 25 21 31 | 36 3d 33 20 8c 0d 07 b2 | . q1%!1|6=3 ....|
|00001580| 18 20 20 20 20 20 20 20 | 20 21 71 31 25 3d 73 61 |. | !q1%=sa|
|00001590| 76 65 61 73 25 0d 07 bc | 29 20 20 20 20 20 20 20 |veas%...|) |
|000015a0| 20 c8 99 20 22 57 69 6d | 70 5f 47 65 74 57 69 6e | .. "Wim|p_GetWin|
|000015b0| 64 6f 77 53 74 61 74 65 | 22 2c 2c 71 31 25 0d 07 |dowState|",,q1%..|
|000015c0| c6 1c 20 20 20 20 20 20 | 20 20 77 65 78 3d 71 31 |.. | wex=q1|
|000015d0| 25 21 34 2d 71 31 25 21 | 32 30 0d 07 d0 1d 20 20 |%!4-q1%!|20.... |
|000015e0| 20 20 20 20 20 20 77 65 | 79 3d 71 31 25 21 31 36 | we|y=q1%!16|
|000015f0| 2d 71 31 25 21 32 34 0d | 07 da 13 20 20 20 20 20 |-q1%!24.|... |
|00001600| 20 20 20 71 31 25 21 34 | 3d 33 0d 07 e4 27 20 20 | q1%!4|=3...' |
|00001610| 20 20 20 20 20 20 c8 99 | 20 22 57 69 6d 70 5f 47 | ..| "Wimp_G|
|00001620| 65 74 49 63 6f 6e 53 74 | 61 74 65 22 2c 2c 71 31 |etIconSt|ate",,q1|
|00001630| 25 0d 07 ee 20 20 20 20 | 20 20 20 20 20 21 71 31 |%... | !q1|
|00001640| 25 3d 73 61 76 65 61 73 | 25 3a 71 31 25 21 34 3d |%=saveas|%:q1%!4=|
|00001650| 35 0d 07 f8 1b 20 20 20 | 20 20 20 20 20 71 31 25 |5.... | q1%|
|00001660| 21 38 3d 71 31 25 21 38 | 2b 77 65 78 0d 08 02 1d |!8=q1%!8|+wex....|
|00001670| 20 20 20 20 20 20 20 20 | 71 31 25 21 31 32 3d 71 | |q1%!12=q|
|00001680| 31 25 21 31 32 2b 77 65 | 79 0d 08 0c 1d 20 20 20 |1%!12+we|y.... |
|00001690| 20 20 20 20 20 71 31 25 | 21 31 36 3d 71 31 25 21 | q1%|!16=q1%!|
|000016a0| 31 36 2b 77 65 78 0d 08 | 16 1d 20 20 20 20 20 20 |16+wex..|.. |
|000016b0| 20 20 71 31 25 21 32 30 | 3d 71 31 25 21 32 30 2b | q1%!20|=q1%!20+|
|000016c0| 77 65 79 0d 08 20 1d 20 | 20 20 20 20 20 20 20 71 |wey.. . | q|
|000016d0| 31 25 21 32 34 3d 30 3a | 71 31 25 21 32 38 3d 30 |1%!24=0:|q1%!28=0|
|000016e0| 0d 08 2a 2d 20 20 20 20 | 20 20 20 20 71 31 25 21 |..*- | q1%!|
|000016f0| 33 32 3d 26 37 46 46 46 | 46 46 46 46 3a 71 31 25 |32=&7FFF|FFFF:q1%|
|00001700| 21 33 36 3d 26 37 46 46 | 46 46 46 46 46 0d 08 34 |!36=&7FF|FFFFF..4|
|00001710| 22 20 20 20 20 20 20 20 | 20 c8 99 20 22 57 69 6d |" | .. "Wim|
|00001720| 70 5f 44 72 61 67 42 6f | 78 22 2c 2c 71 31 25 0d |p_DragBo|x",,q1%.|
|00001730| 08 3e 0d 20 20 20 20 20 | 20 20 20 cd 0d 08 48 36 |.>. | ...H6|
|00001740| 20 20 20 20 20 20 20 20 | e7 71 31 25 21 31 32 3d | |.q1%!12=|
|00001750| 73 61 76 65 61 73 25 20 | 80 20 71 31 25 21 31 36 |saveas% |. q1%!16|
|00001760| 3d 32 20 f2 73 61 76 65 | 66 69 6c 65 28 a3 2c 22 |=2 .save|file(.,"|
|00001770| 22 29 0d 08 52 05 cb 0d | 08 5c 05 e1 0d 08 66 05 |")..R...|.\....f.|
|00001780| 3a 0d 08 70 16 dd f2 64 | 6f 6d 65 6e 75 28 68 25 |:..p...d|omenu(h%|
|00001790| 2c 78 25 2c 79 25 29 0d | 08 7a 24 6d 65 6e 75 64 |,x%,y%).|.z$menud|
|000017a0| 61 74 61 25 3d 68 25 3a | 6d 65 6e 75 78 25 3d 78 |ata%=h%:|menux%=x|
|000017b0| 25 3a 6d 65 6e 75 79 25 | 3d 79 25 0d 08 84 22 c8 |%:menuy%|=y%...".|
|000017c0| 99 20 22 57 69 6d 70 5f | 43 72 65 61 74 65 4d 65 |. "Wimp_|CreateMe|
|000017d0| 6e 75 22 2c 2c 68 25 2c | 78 25 2c 79 25 0d 08 8e |nu",,h%,|x%,y%...|
|000017e0| 05 e1 0d 08 98 05 3a 0d | 08 a2 10 dd f2 6d 65 6e |......:.|.....men|
|000017f0| 75 73 65 6c 65 63 74 0d | 08 ac 1c ea 20 57 48 24 |uselect.|.... WH$|
|00001800| 2c 69 25 2c 61 64 6a 75 | 73 74 25 2c 4d 4d 24 2c |,i%,adju|st%,MM$,|
|00001810| 73 70 24 0d 08 b6 35 c8 | 99 20 22 57 69 6d 70 5f |sp$...5.|. "Wimp_|
|00001820| 47 65 74 50 6f 69 6e 74 | 65 72 49 6e 66 6f 22 2c |GetPoint|erInfo",|
|00001830| 2c 71 32 25 3a 61 64 6a | 75 73 74 25 3d 28 71 32 |,q2%:adj|ust%=(q2|
|00001840| 25 21 38 20 80 20 31 29 | 0d 08 c0 39 c8 99 20 22 |%!8 . 1)|...9.. "|
|00001850| 57 69 6d 70 5f 44 65 63 | 6f 64 65 4d 65 6e 75 22 |Wimp_Dec|odeMenu"|
|00001860| 2c 2c 6d 65 6e 75 64 61 | 74 61 25 2c 71 31 25 2c |,,menuda|ta%,q1%,|
|00001870| c4 32 30 30 2c 22 20 22 | 29 b8 20 2c 2c 2c 57 48 |.200," "|). ,,,WH|
|00001880| 24 0d 08 ca 0e e7 20 57 | 48 24 3d 22 22 20 e1 0d |$..... W|H$="" ..|
|00001890| 08 d4 15 e7 20 57 48 24 | 3d 22 41 6e 69 6d 61 74 |.... WH$|="Animat|
|000018a0| 65 22 20 8c 0d 08 de 0a | 65 6e 74 25 3d eb 0d 08 |e" .....|ent%=...|
|000018b0| e8 0c f2 64 69 73 70 6c | 61 79 0d 08 f2 1a c8 99 |...displ|ay......|
|000018c0| 20 22 57 69 6d 70 5f 53 | 65 74 4d 6f 64 65 22 2c | "Wimp_S|etMode",|
|000018d0| 65 6e 74 25 0d 08 fc 05 | 87 0d 09 06 05 cd 0d 09 |ent%....|........|
|000018e0| 10 1d e7 20 57 48 24 3d | 22 4e 6f 20 46 69 6c 6c |... WH$=|"No Fill|
|000018f0| 22 20 8c 20 66 69 6c 6c | 25 3d 31 0d 09 1a 1d e7 |" . fill|%=1.....|
|00001900| 20 57 48 24 3d 22 46 69 | 6c 6c 20 4f 6e 22 20 8c | WH$="Fi|ll On" .|
|00001910| 20 66 69 6c 6c 25 3d 30 | 0d 09 24 17 e7 20 57 48 | fill%=0|..$.. WH|
|00001920| 24 3d 22 43 6c 65 61 72 | 20 41 6c 6c 22 20 8c 0d |$="Clear| All" ..|
|00001930| 09 2e 0e f2 69 6e 69 74 | 61 67 61 69 6e 0d 09 38 |....init|again..8|
|00001940| 23 f2 73 65 74 74 65 78 | 74 28 70 69 63 31 25 2c |#.settex|t(pic1%,|
|00001950| 32 2c 22 4e 6f 2e 70 6f | 69 6e 74 73 3a 30 22 29 |2,"No.po|ints:0")|
|00001960| 0d 09 42 23 f2 73 65 74 | 74 65 78 74 28 70 69 63 |..B#.set|text(pic|
|00001970| 32 25 2c 32 2c 22 4e 6f | 2e 70 6f 69 6e 74 73 3a |2%,2,"No|.points:|
|00001980| 30 22 29 0d 09 4c 2b c8 | 99 20 22 57 69 6d 70 5f |0")..L+.|. "Wimp_|
|00001990| 46 6f 72 63 65 52 65 64 | 72 61 77 22 2c 70 69 63 |ForceRed|raw",pic|
|000019a0| 31 25 2c 30 2c 30 2c 36 | 34 30 2c 35 31 32 0d 09 |1%,0,0,6|40,512..|
|000019b0| 56 2b c8 99 20 22 57 69 | 6d 70 5f 46 6f 72 63 65 |V+.. "Wi|mp_Force|
|000019c0| 52 65 64 72 61 77 22 2c | 70 69 63 32 25 2c 30 2c |Redraw",|pic2%,0,|
|000019d0| 30 2c 36 34 30 2c 35 31 | 32 0d 09 60 05 cd 0d 09 |0,640,51|2..`....|
|000019e0| 6a 1c e7 20 57 48 24 3d | 22 51 75 69 74 22 20 8c |j.. WH$=|"Quit" .|
|000019f0| 20 f2 73 68 75 74 64 6f | 77 6e 0d 09 74 04 0d 09 | .shutdo|wn..t...|
|00001a00| 7e 40 e7 20 61 64 6a 75 | 73 74 25 20 80 20 66 69 |~@. adju|st% . fi|
|00001a10| 6c 6c 25 3d 30 20 8c 20 | f2 64 6f 6d 65 6e 75 28 |ll%=0 . |.domenu(|
|00001a20| 64 72 61 77 6d 65 6e 75 | 31 25 2c 21 71 32 25 2d |drawmenu|1%,!q2%-|
|00001a30| 31 30 30 2c 71 32 25 21 | 34 2b 31 30 30 29 0d 09 |100,q2%!|4+100)..|
|00001a40| 88 40 e7 20 61 64 6a 75 | 73 74 25 20 80 20 66 69 |.@. adju|st% . fi|
|00001a50| 6c 6c 25 3d 31 20 8c 20 | f2 64 6f 6d 65 6e 75 28 |ll%=1 . |.domenu(|
|00001a60| 64 72 61 77 6d 65 6e 75 | 32 25 2c 21 71 32 25 2d |drawmenu|2%,!q2%-|
|00001a70| 31 30 30 2c 71 32 25 21 | 34 2b 31 30 30 29 0d 09 |100,q2%!|4+100)..|
|00001a80| 92 05 e1 0d 09 9c 05 3a | 0d 09 a6 0c dd a4 63 72 |.......:|......cr|
|00001a90| 6d 65 6e 75 0d 09 b0 14 | ea 20 4d 25 2c 6d 65 6e |menu....|. M%,men|
|00001aa0| 75 24 2c 6d 24 2c 49 25 | 0d 09 ba 36 e7 20 28 6d |u$,m$,I%|...6. (m|
|00001ab0| 65 6e 75 66 72 65 65 25 | 2b 32 38 3e 6d 65 6e 75 |enufree%|+28>menu|
|00001ac0| 65 6e 64 25 29 20 f2 66 | 61 74 61 6c 28 22 4d 65 |end%) .f|atal("Me|
|00001ad0| 6e 75 20 61 72 65 61 20 | 66 75 6c 6c 22 29 0d 09 |nu area |full")..|
|00001ae0| c4 0b f3 20 6d 65 6e 75 | 24 0d 09 ce 15 c8 95 20 |... menu|$...... |
|00001af0| c2 6d 65 6e 75 24 2c 32 | 29 3d 22 2b 2b 22 0d 09 |.menu$,2|)="++"..|
|00001b00| d8 09 20 f3 20 6d 24 0d | 09 e2 1e 20 6d 65 6e 75 |.. . m$.|... menu|
|00001b10| 24 3d c0 6d 65 6e 75 24 | 2c a9 6d 65 6e 75 24 2d |$=.menu$|,.menu$-|
|00001b20| 32 29 2b 6d 24 0d 09 ec | 05 ce 0d 09 f6 16 6d 65 |2)+m$...|......me|
|00001b30| 6e 75 70 74 72 25 3d 6d | 65 6e 75 66 72 65 65 25 |nuptr%=m|enufree%|
|00001b40| 0d 0a 00 08 49 25 3d 30 | 0d 0a 0a 3d e7 20 c0 6d |....I%=0|...=. .m|
|00001b50| 65 6e 75 24 2c 31 29 3d | 22 23 22 20 49 25 3d 31 |enu$,1)=|"#" I%=1|
|00001b60| 3a 6d 65 6e 75 74 69 74 | 6c 65 24 3d a4 70 61 72 |:menutit|le$=.par|
|00001b70| 28 22 2c 22 29 20 8b 20 | 6d 65 6e 75 74 69 74 6c |(",") . |menutitl|
|00001b80| 65 24 3d 22 22 0d 0a 14 | 18 24 6d 65 6e 75 70 74 |e$=""...|.$menupt|
|00001b90| 72 25 3d 6d 65 6e 75 74 | 69 74 6c 65 24 0d 0a 1e |r%=menut|itle$...|
|00001ba0| 11 6d 65 6e 75 70 74 72 | 25 3f 31 32 3d 37 0d 0a |.menuptr|%?12=7..|
|00001bb0| 28 11 6d 65 6e 75 70 74 | 72 25 3f 31 33 3d 32 0d |(.menupt|r%?13=2.|
|00001bc0| 0a 32 11 6d 65 6e 75 70 | 74 72 25 3f 31 34 3d 37 |.2.menup|tr%?14=7|
|00001bd0| 0d 0a 3c 11 6d 65 6e 75 | 70 74 72 25 3f 31 35 3d |..<.menu|ptr%?15=|
|00001be0| 31 0d 0a 46 13 6d 65 6e | 75 70 74 72 25 21 31 36 |1..F.men|uptr%!16|
|00001bf0| 3d 31 39 36 0d 0a 50 12 | 6d 65 6e 75 70 74 72 25 |=196..P.|menuptr%|
|00001c00| 21 32 30 3d 34 34 0d 0a | 5a 11 6d 65 6e 75 70 74 |!20=44..|Z.menupt|
|00001c10| 72 25 21 32 34 3d 30 0d | 0a 64 10 6d 65 6e 75 70 |r%!24=0.|.d.menup|
|00001c20| 74 72 25 2b 3d 32 38 0d | 0a 6e 17 6d 61 78 78 25 |tr%+=28.|.n.maxx%|
|00001c30| 3d a9 6d 65 6e 75 74 69 | 74 6c 65 24 2d 33 0d 0a |=.menuti|tle$-3..|
|00001c40| 78 05 f5 0d 0a 82 14 20 | 69 74 65 6d 24 3d a4 70 |x...... |item$=.p|
|00001c50| 61 72 28 22 2c 22 29 0d | 0a 8c 15 20 f2 6d 65 6e |ar(",").|... .men|
|00001c60| 75 69 74 65 6d 28 69 74 | 65 6d 24 29 0d 0a 96 0e |uitem(it|em$)....|
|00001c70| fd 20 69 74 65 6d 24 3d | 22 22 0d 0a a0 10 4d 25 |. item$=|""....M%|
|00001c80| 3d 6d 65 6e 75 66 72 65 | 65 25 0d 0a aa 17 4d 25 |=menufre|e%....M%|
|00001c90| 21 31 36 3d 28 6d 61 78 | 78 25 2a 38 2b 36 29 2a |!16=(max|x%*8+6)*|
|00001ca0| 32 0d 0a b4 16 6d 65 6e | 75 66 72 65 65 25 3d 6d |2....men|ufree%=m|
|00001cb0| 65 6e 75 70 74 72 25 0d | 0a be 07 3d 4d 25 0d 0a |enuptr%.|...=M%..|
|00001cc0| c8 05 3a 0d 0a d2 15 dd | f2 6d 65 6e 75 69 74 65 |..:.....|.menuite|
|00001cd0| 6d 28 74 65 78 74 24 29 | 0d 0a dc 11 ea 20 49 25 |m(text$)|..... I%|
|00001ce0| 2c 46 25 2c 53 25 2c 4c | 25 0d 0a e6 30 e7 20 74 |,F%,S%,L|%...0. t|
|00001cf0| 65 78 74 24 3d 22 22 20 | 6d 65 6e 75 70 74 72 25 |ext$="" |menuptr%|
|00001d00| 21 2d 32 34 3d 28 6d 65 | 6e 75 70 74 72 25 21 2d |!-24=(me|nuptr%!-|
|00001d10| 32 34 29 84 26 38 30 3a | e1 0d 0a f0 35 e7 20 28 |24).&80:|....5. (|
|00001d20| 6d 65 6e 75 70 74 72 25 | 2b 32 34 3e 6d 65 6e 75 |menuptr%|+24>menu|
|00001d30| 65 6e 64 25 29 20 f2 66 | 61 74 61 6c 28 22 4d 65 |end%) .f|atal("Me|
|00001d40| 6e 75 20 61 72 65 61 20 | 66 75 6c 6c 22 29 0d 0a |nu area |full")..|
|00001d50| fa 0a 46 25 3d 26 30 30 | 0d 0b 04 12 49 25 3d a7 |..F%=&00|....I%=.|
|00001d60| 74 65 78 74 24 2c 22 3e | 22 29 0d 0b 0e 0c e7 20 |text$,">|")..... |
|00001d70| 49 25 3e 30 20 8c 0d 0b | 18 15 20 53 25 3d a0 c1 |I%>0 ...|.. S%=..|
|00001d80| 74 65 78 74 24 2c 49 25 | 2b 31 29 0d 0b 22 16 74 |text$,I%|+1)..".t|
|00001d90| 65 78 74 24 3d c0 74 65 | 78 74 24 2c 49 25 2d 31 |ext$=.te|xt$,I%-1|
|00001da0| 29 0d 0b 2c 05 cc 0d 0b | 36 0a 20 53 25 3d 2d 31 |)..,....|6. S%=-1|
|00001db0| 0d 0b 40 05 cd 0d 0b 4a | 29 e7 20 c2 74 65 78 74 |..@....J|). .text|
|00001dc0| 24 2c 31 29 3d 22 23 22 | 20 74 65 78 74 24 3d c0 |$,1)="#"| text$=.|
|00001dd0| 74 65 78 74 24 29 3a 46 | 25 2b 3d 26 30 32 0d 0b |text$):F|%+=&02..|
|00001de0| 54 29 e7 20 c2 74 65 78 | 74 24 2c 31 29 3d 22 40 |T). .tex|t$,1)="@|
|00001df0| 22 20 74 65 78 74 24 3d | c0 74 65 78 74 24 29 3a |" text$=|.text$):|
|00001e00| 46 25 2b 3d 26 30 38 0d | 0b 5e 11 6d 65 6e 75 70 |F%+=&08.|.^.menup|
|00001e10| 74 72 25 21 30 3d 46 25 | 0d 0b 68 11 6d 65 6e 75 |tr%!0=F%|..h.menu|
|00001e20| 70 74 72 25 21 34 3d 53 | 25 0d 0b 72 18 6d 65 6e |ptr%!4=S|%..r.men|
|00001e30| 75 70 74 72 25 21 38 3d | 26 30 37 30 30 30 30 32 |uptr%!8=|&0700002|
|00001e40| 31 0d 0b 7c 15 e7 20 c0 | 74 65 78 74 24 2c 31 29 |1..|.. .|text$,1)|
|00001e50| 3d 22 24 22 20 8c 0d 0b | 86 13 20 21 6d 65 6e 75 |="$" ...|.. !menu|
|00001e60| 70 74 72 25 2b 3d 26 30 | 34 0d 0b 90 15 20 6d 65 |ptr%+=&0|4.... me|
|00001e70| 6e 75 70 74 72 25 21 38 | 2b 3d 26 31 30 30 0d 0b |nuptr%!8|+=&100..|
|00001e80| 9a 13 20 49 25 3d a7 74 | 65 78 74 24 2c 22 28 22 |.. I%=.t|ext$,"("|
|00001e90| 29 0d 0b a4 0d 20 e7 20 | 49 25 3e 30 20 8c 0d 0b |).... . |I%>0 ...|
|00001ea0| ae 16 20 20 4c 25 3d bb | c1 74 65 78 74 24 2c 49 |.. L%=.|.text$,I|
|00001eb0| 25 2b 31 29 0d 0b b8 18 | 20 20 74 65 78 74 24 3d |%+1)....| text$=|
|00001ec0| c0 74 65 78 74 24 2c 49 | 25 2d 31 29 0d 0b c2 06 |.text$,I|%-1)....|
|00001ed0| 20 cc 0d 0b cc 0b 20 20 | 4c 25 3d 31 32 0d 0b d6 | ..... |L%=12...|
|00001ee0| 06 20 cd 0d 0b e0 1b 20 | 6d 65 6e 75 70 74 72 25 |. ..... |menuptr%|
|00001ef0| 21 31 32 3d a0 c1 74 65 | 78 74 24 2c 32 29 0d 0b |!12=..te|xt$,2)..|
|00001f00| ea 13 20 6d 65 6e 75 70 | 74 72 25 21 31 36 3d 2d |.. menup|tr%!16=-|
|00001f10| 31 0d 0b f4 13 20 6d 65 | 6e 75 70 74 72 25 21 32 |1.... me|nuptr%!2|
|00001f20| 30 3d 4c 25 0d 0b fe 11 | 20 e7 4c 25 3e 31 36 20 |0=L%....| .L%>16 |
|00001f30| 4c 25 3d 31 36 0d 0c 08 | 13 20 74 65 78 74 24 3d |L%=16...|. text$=|
|00001f40| c4 4c 25 2c 22 20 22 29 | 0d 0c 12 05 cc 0d 0c 1c |.L%," ")|........|
|00001f50| 11 20 e7 a9 74 65 78 74 | 24 3c 3d 31 32 8c 0d 0c |. ..text|$<=12...|
|00001f60| 26 1a 20 20 24 28 6d 65 | 6e 75 70 74 72 25 2b 31 |&. $(me|nuptr%+1|
|00001f70| 32 29 3d 74 65 78 74 24 | 0d 0c 30 06 20 cc 0d 0c |2)=text$|..0. ...|
|00001f80| 3a 27 20 20 49 25 3d a4 | 77 6f 72 6b 73 70 61 63 |:' I%=.|workspac|
|00001f90| 65 28 a9 74 65 78 74 24 | 2b 31 29 3a 24 49 25 3d |e(.text$|+1):$I%=|
|00001fa0| 74 65 78 74 24 0d 0c 44 | 38 20 20 6d 65 6e 75 70 |text$..D|8 menup|
|00001fb0| 74 72 25 21 31 32 3d 49 | 25 3a 6d 65 6e 75 70 74 |tr%!12=I|%:menupt|
|00001fc0| 72 25 21 31 36 3d 2d 31 | 3a 6d 65 6e 75 70 74 72 |r%!16=-1|:menuptr|
|00001fd0| 25 21 32 30 3d a9 74 65 | 78 74 24 2b 31 0d 0c 4e |%!20=.te|xt$+1..N|
|00001fe0| 22 20 20 6d 65 6e 75 70 | 74 72 25 21 38 3d 6d 65 |" menup|tr%!8=me|
|00001ff0| 6e 75 70 74 72 25 21 38 | 20 84 20 26 31 30 30 0d |nuptr%!8| . &100.|
|00002000| 0c 58 06 20 cd 0d 0c 62 | 05 cd 0d 0c 6c 1f e7 20 |.X. ...b|....l.. |
|00002010| a9 74 65 78 74 24 3e 6d | 61 78 78 25 20 6d 61 78 |.text$>m|axx% max|
|00002020| 78 25 3d a9 74 65 78 74 | 24 0d 0c 76 10 6d 65 6e |x%=.text|$..v.men|
|00002030| 75 70 74 72 25 2b 3d 32 | 34 0d 0c 80 05 e1 0d 0c |uptr%+=2|4.......|
|00002040| 8a 05 3a 0d 0c 94 0f dd | a4 70 61 72 28 73 65 70 |..:.....|.par(sep|
|00002050| 24 29 0d 0c 9e 08 ea 20 | 4c 25 0d 0c a8 0b 4c 25 |$)..... |L%....L%|
|00002060| 3d 49 25 2b 31 0d 0c b2 | 1b 49 25 3d a7 6d 65 6e |=I%+1...|.I%=.men|
|00002070| 75 24 2b 73 65 70 24 2c | 73 65 70 24 2c 4c 25 29 |u$+sep$,|sep$,L%)|
|00002080| 0d 0c bc 15 3d c1 6d 65 | 6e 75 24 2c 4c 25 2c 49 |....=.me|nu$,L%,I|
|00002090| 25 2d 4c 25 29 0d 0c c6 | 05 3a 0d 0c d0 13 dd a4 |%-L%)...|.:......|
|000020a0| 77 6f 72 6b 73 70 61 63 | 65 28 4c 25 29 0d 0c da |workspac|e(L%)...|
|000020b0| 38 e7 20 63 75 72 77 73 | 25 2b 4c 25 3e 77 73 25 |8. curws|%+L%>ws%|
|000020c0| 2b 6d 61 78 77 73 25 20 | 8c 20 f2 66 61 74 61 6c |+maxws% |. .fatal|
|000020d0| 28 22 4e 6f 20 6d 6f 72 | 65 20 77 6f 72 6b 73 70 |("No mor|e worksp|
|000020e0| 61 63 65 22 29 0d 0c e4 | 0e 63 75 72 77 73 25 2b |ace")...|.curws%+|
|000020f0| 3d 4c 25 0d 0c ee 0e 3d | 63 75 72 77 73 25 2d 4c |=L%....=|curws%-L|
|00002100| 25 0d 0c f8 0d dd f2 61 | 63 6b 6c 6f 61 64 0d 0d |%......a|ckload..|
|00002110| 02 21 71 31 25 21 31 32 | 3d 71 31 25 21 38 3a 71 |.!q1%!12|=q1%!8:q|
|00002120| 31 25 21 31 36 3d 34 3a | 21 71 31 25 3d 36 34 0d |1%!16=4:|!q1%=64.|
|00002130| 0d 0c 26 c8 99 20 22 57 | 69 6d 70 5f 53 65 6e 64 |..&.. "W|imp_Send|
|00002140| 4d 65 73 73 61 67 65 22 | 2c 31 37 2c 71 31 25 2c |Message"|,17,q1%,|
|00002150| 71 31 25 21 34 0d 0d 16 | 05 e1 0d 0d 20 05 3a 0d |q1%!4...|.... .:.|
|00002160| 0d 2a 05 3a 0d 0d 34 0f | dd a4 77 69 6d 70 65 72 |.*.:..4.|..wimper|
|00002170| 72 6f 72 0d 0d 3e 2d e7 | 20 f6 24 3d 22 4f 62 6a |ror..>-.| .$="Obj|
|00002180| 65 63 74 20 69 73 20 61 | 20 64 69 72 65 63 74 6f |ect is a| directo|
|00002190| 72 79 22 20 8c 20 f2 43 | 6c 6f 73 65 46 69 6c 65 |ry" . .C|loseFile|
|000021a0| 0d 0d 48 0a 21 71 32 25 | 3d 9f 0d 0d 52 12 24 28 |..H.!q2%|=...R.$(|
|000021b0| 71 32 25 2b 34 29 3d f6 | 24 2b bd 30 0d 0d 5c 32 |q2%+4)=.|$+.0..\2|
|000021c0| c8 99 22 57 69 6d 70 5f | 52 65 70 6f 72 74 45 72 |.."Wimp_|ReportEr|
|000021d0| 72 6f 72 22 2c 71 32 25 | 2c 2c 22 4d 6f 72 70 68 |ror",q2%|,,"Morph|
|000021e0| 22 20 b8 20 2c 72 65 73 | 70 6f 6e 73 65 25 0d 0d |" . ,res|ponse%..|
|000021f0| 66 22 e7 20 72 65 73 70 | 6f 6e 73 65 25 3d 31 20 |f". resp|onse%=1 |
|00002200| 8c 20 e5 20 8d 44 46 40 | 3a 3d b9 20 8b 20 3d a3 |. . .DF@|:=. . =.|
|00002210| 0d 0d 70 06 20 3a 0d 0d | 7a 0a dd f2 70 6f 6c 6c |..p. :..|z...poll|
|00002220| 0d 0d 84 0e 20 f4 20 2a | 46 58 20 34 2c 31 0d 0d |.... . *|FX 4,1..|
|00002230| 8e 06 20 f5 0d 0d 98 22 | 20 c8 99 22 57 69 6d 70 |.. ...."| .."Wimp|
|00002240| 5f 50 6f 6c 6c 22 2c 2c | 71 31 25 20 b8 20 72 65 |_Poll",,|q1% . re|
|00002250| 73 70 6f 6e 64 25 0d 0d | a2 12 20 c8 8e 20 72 65 |spond%..|.. .. re|
|00002260| 73 70 6f 6e 64 25 20 ca | 0d 0d ac 12 20 c9 20 31 |spond% .|.... . 1|
|00002270| 20 3a 20 f2 52 65 64 72 | 61 77 0d 0d b6 24 20 c9 | : .Redr|aw...$ .|
|00002280| 20 32 20 3a 20 c8 99 20 | 22 57 69 6d 70 5f 4f 70 | 2 : .. |"Wimp_Op|
|00002290| 65 6e 57 69 6e 64 6f 77 | 22 2c 2c 71 31 25 0d 0d |enWindow|",,q1%..|
|000022a0| c0 25 20 c9 20 33 20 3a | 20 c8 99 20 22 57 69 6d |.% . 3 :| .. "Wim|
|000022b0| 70 5f 43 6c 6f 73 65 57 | 69 6e 64 6f 77 22 2c 2c |p_CloseW|indow",,|
|000022c0| 71 31 25 0d 0d ca 16 20 | c9 20 36 20 3a 20 f2 6d |q1%.... |. 6 : .m|
|000022d0| 6f 75 73 65 63 6c 69 63 | 6b 0d 0d d4 10 20 c9 20 |ouseclic|k.... . |
|000022e0| 37 20 3a 20 f2 73 61 76 | 65 0d 0d de 14 20 c9 20 |7 : .sav|e.... . |
|000022f0| 38 20 3a 20 f2 6b 65 79 | 70 72 65 73 73 0d 0d e8 |8 : .key|press...|
|00002300| 16 20 c9 20 39 20 3a 20 | f2 6d 65 6e 75 73 65 6c |. . 9 : |.menusel|
|00002310| 65 63 74 0d 0d f2 1a 20 | c9 20 31 37 2c 31 38 3a |ect.... |. 17,18:|
|00002320| 20 f2 72 65 63 65 69 76 | 65 28 72 25 29 0d 0d fc | .receiv|e(r%)...|
|00002330| 0f 20 c9 20 31 39 3a 20 | f2 61 63 6b 0d 0e 06 05 |. . 19: |.ack....|
|00002340| cb 0d 0e 10 07 fd 20 a3 | 0d 0e 1a 05 e1 0d 0e 24 |...... .|.......$|
|00002350| 14 20 dd f2 73 65 74 75 | 70 67 72 61 70 68 69 63 |. ..setu|pgraphic|
|00002360| 73 0d 0e 2e 16 20 73 70 | 72 69 74 65 6c 65 6e 3d |s.... sp|ritelen=|
|00002370| 31 36 2a 31 30 32 34 0d | 0e 38 19 20 de 20 73 70 |16*1024.|.8. . sp|
|00002380| 72 69 74 65 73 25 20 73 | 70 72 69 74 65 6c 65 6e |rites% s|pritelen|
|00002390| 0d 0e 42 19 20 73 70 72 | 69 74 65 73 25 21 30 3d |..B. spr|ites%!0=|
|000023a0| 73 70 72 69 74 65 6c 65 | 6e 0d 0e 4c 12 20 73 70 |spritele|n..L. sp|
|000023b0| 72 69 74 65 73 25 21 38 | 3d 31 37 0d 0e 56 25 20 |rites%!8|=17..V% |
|000023c0| c8 99 20 22 4f 53 5f 53 | 70 72 69 74 65 4f 70 22 |.. "OS_S|priteOp"|
|000023d0| 2c 26 31 30 30 2b 39 2c | 73 70 72 69 74 65 73 25 |,&100+9,|sprites%|
|000023e0| 0d 0e 60 3d 20 c8 99 20 | 22 4f 53 5f 53 70 72 69 |..`= .. |"OS_Spri|
|000023f0| 74 65 4f 70 22 2c 26 31 | 30 30 2b 31 30 2c 73 70 |teOp",&1|00+10,sp|
|00002400| 72 69 74 65 73 25 2c 22 | 3c 4d 6f 72 70 68 24 44 |rites%,"|<Morph$D|
|00002410| 69 72 3e 2e 21 53 70 72 | 69 74 65 73 22 0d 0e 6a |ir>.!Spr|ites"..j|
|00002420| 06 20 e1 0d 0e 74 12 20 | dd f2 53 63 68 6f 6f 73 |. ...t. |..Schoos|
|00002430| 65 28 6e 24 29 0d 0e 7e | 0f 20 63 68 6f 73 65 6e |e(n$)..~|. chosen|
|00002440| 24 3d 6e 24 0d 0e 88 06 | 20 e1 0d 0e 92 0f 20 dd |$=n$....| ..... .|
|00002450| f2 53 67 65 74 28 6e 24 | 29 0d 0e 9c 2b 20 c8 99 |.Sget(n$|)...+ ..|
|00002460| 20 22 4f 53 5f 53 70 72 | 69 74 65 4f 70 22 2c 26 | "OS_Spr|iteOp",&|
|00002470| 31 30 30 2b 31 34 2c 73 | 70 72 69 74 65 73 25 2c |100+14,s|prites%,|
|00002480| 6e 24 2c 30 0d 0e a6 06 | 20 e1 0d 0e b0 1b 20 dd |n$,0....| ..... .|
|00002490| f2 53 70 6c 6f 74 28 78 | 25 2c 79 25 2c 63 68 6f |.Splot(x|%,y%,cho|
|000024a0| 73 65 6e 24 29 0d 0e ba | 36 20 c8 99 20 22 4f 53 |sen$)...|6 .. "OS|
|000024b0| 5f 53 70 72 69 74 65 4f | 70 22 2c 26 31 30 30 2b |_SpriteO|p",&100+|
|000024c0| 33 34 2c 73 70 72 69 74 | 65 73 25 2c 63 68 6f 73 |34,sprit|es%,chos|
|000024d0| 65 6e 24 2c 78 25 2c 79 | 25 2c 30 0d 0e c4 06 20 |en$,x%,y|%,0.... |
|000024e0| e1 0d 0e ce 13 20 dd f2 | 4d 70 6c 6f 74 28 78 25 |..... ..|Mplot(x%|
|000024f0| 2c 79 25 29 0d 0e d8 36 | 20 c8 99 20 22 4f 53 5f |,y%)...6| .. "OS_|
|00002500| 53 70 72 69 74 65 4f 70 | 22 2c 26 31 30 30 2b 33 |SpriteOp|",&100+3|
|00002510| 34 2c 73 70 72 69 74 65 | 73 25 2c 63 68 6f 73 65 |4,sprite|s%,chose|
|00002520| 6e 24 2c 78 25 2c 79 25 | 2c 38 0d 0e e2 06 20 e1 |n$,x%,y%|,8.... .|
|00002530| 0d 0e ec 1d 20 dd f2 73 | 65 74 74 65 78 74 28 77 |.... ..s|ettext(w|
|00002540| 77 25 2c 69 63 6e 25 2c | 69 63 74 24 29 0d 0e f6 |w%,icn%,|ict$)...|
|00002550| 35 20 71 32 25 21 30 3d | 77 77 25 3a 71 32 25 21 |5 q2%!0=|ww%:q2%!|
|00002560| 34 3d 69 63 6e 25 3a c8 | 99 20 22 57 69 6d 70 5f |4=icn%:.|. "Wimp_|
|00002570| 47 65 74 49 63 6f 6e 53 | 74 61 74 65 22 2c 2c 71 |GetIconS|tate",,q|
|00002580| 32 25 0d 0f 00 40 20 24 | 28 71 32 25 21 32 38 29 |2%...@ $|(q2%!28)|
|00002590| 3d 69 63 74 24 3a 71 32 | 25 21 38 3d 30 3a 71 32 |=ict$:q2|%!8=0:q2|
|000025a0| 25 21 31 32 3d 30 3a c8 | 99 20 22 57 69 6d 70 5f |%!12=0:.|. "Wimp_|
|000025b0| 53 65 74 49 63 6f 6e 53 | 74 61 74 65 22 2c 2c 71 |SetIconS|tate",,q|
|000025c0| 32 25 0d 0f 0a 06 20 e1 | 0d 0f 14 1d 20 dd f2 73 |2%.... .|.... ..s|
|000025d0| 65 74 69 63 6f 6e 28 77 | 77 25 2c 69 63 6e 25 2c |eticon(w|w%,icn%,|
|000025e0| 69 63 74 24 29 0d 0f 1e | 35 20 71 32 25 21 30 3d |ict$)...|5 q2%!0=|
|000025f0| 77 77 25 3a 71 32 25 21 | 34 3d 69 63 6e 25 3a c8 |ww%:q2%!|4=icn%:.|
|00002600| 99 20 22 57 69 6d 70 5f | 47 65 74 49 63 6f 6e 53 |. "Wimp_|GetIconS|
|00002610| 74 61 74 65 22 2c 2c 71 | 32 25 0d 0f 28 3d 20 71 |tate",,q|2%..(= q|
|00002620| 32 25 21 32 34 3d 69 63 | 74 24 3a 71 32 25 21 38 |2%!24=ic|t$:q2%!8|
|00002630| 3d 30 3a 71 32 25 21 31 | 32 3d 30 3a c8 99 20 22 |=0:q2%!1|2=0:.. "|
|00002640| 57 69 6d 70 5f 53 65 74 | 49 63 6f 6e 53 74 61 74 |Wimp_Set|IconStat|
|00002650| 65 22 2c 2c 71 32 25 0d | 0f 32 06 20 e1 0d 0f 3c |e",,q2%.|.2. ...<|
|00002660| 1d dd 20 a4 67 65 74 74 | 65 78 74 28 77 69 6e 64 |.. .gett|ext(wind|
|00002670| 6f 77 25 2c 69 63 6f 6e | 25 29 0d 0f 46 1e 20 71 |ow%,icon|%)..F. q|
|00002680| 31 25 21 30 3d 77 69 6e | 64 6f 77 25 3a 71 31 25 |1%!0=win|dow%:q1%|
|00002690| 21 34 3d 69 63 6f 6e 25 | 0d 0f 50 21 20 c8 99 20 |!4=icon%|..P! .. |
|000026a0| 22 57 69 6d 70 5f 47 65 | 74 49 63 6f 6e 53 74 61 |"Wimp_Ge|tIconSta|
|000026b0| 74 65 22 2c 30 2c 71 31 | 25 0d 0f 5a 0f 3d 20 24 |te",0,q1|%..Z.= $|
|000026c0| 28 71 31 25 21 32 38 29 | 0d 0f 64 18 dd 20 a4 67 |(q1%!28)|..d.. .g|
|000026d0| 65 74 6c 65 61 66 6e 61 | 6d 65 28 66 73 70 24 29 |etleafna|me(fsp$)|
|000026e0| 0d 0f 6e 10 20 70 6f 73 | 3d a9 28 66 73 70 24 29 |..n. pos|=.(fsp$)|
|000026f0| 0d 0f 78 21 20 c8 95 20 | c1 66 73 70 24 2c 70 6f |..x! .. |.fsp$,po|
|00002700| 73 2c 31 29 3c 3e 22 2e | 22 20 80 20 70 6f 73 3e |s,1)<>".|" . pos>|
|00002710| 30 0d 0f 82 0c 20 20 70 | 6f 73 2d 3d 31 0d 0f 8c |0.... p|os-=1...|
|00002720| 06 20 ce 0d 0f 96 11 3d | c1 66 73 70 24 2c 70 6f |. .....=|.fsp$,po|
|00002730| 73 2b 31 29 0d 0f a0 15 | dd f2 73 61 76 65 66 69 |s+1)....|..savefi|
|00002740| 6c 65 28 66 25 2c 6e 24 | 29 0d 0f aa 11 ea 20 6c |le(f%,n$|)..... l|
|00002750| 24 2c 63 25 2c 64 24 2c | 64 25 0d 0f b4 09 e7 66 |$,c%,d$,|d%.....f|
|00002760| 25 20 8c 0d 0f be 0a 20 | 6c 24 3d 6e 24 0d 0f c8 |% ..... |l$=n$...|
|00002770| 05 cc 0d 0f d2 1a 6c 24 | 3d a4 67 65 74 74 65 78 |......l$|=.gettex|
|00002780| 74 28 73 61 76 65 61 73 | 25 2c 34 29 0d 0f dc 11 |t(saveas|%,4)....|
|00002790| e7 a7 6c 24 2c 22 2e 22 | 29 3d 30 20 8c 0d 0f e6 |..l$,"."|)=0 ....|
|000027a0| 41 f2 6f 6b 28 22 54 6f | 20 73 61 76 65 20 74 68 |A.ok("To| save th|
|000027b0| 65 20 66 69 6c 65 2c 20 | 64 72 61 67 20 74 68 65 |e file, |drag the|
|000027c0| 20 69 63 6f 6e 20 74 6f | 20 61 20 64 69 72 65 63 | icon to| a direc|
|000027d0| 74 6f 72 79 20 76 69 65 | 77 65 72 2e 22 29 0d 0f |tory vie|wer.")..|
|000027e0| f0 0b 55 42 44 55 25 3d | 30 0d 0f fa 0a e5 20 8d |..UBDU%=|0..... .|
|000027f0| 54 6c 50 0d 10 04 05 cd | 0d 10 0e 05 cd 0d 10 18 |TlP.....|........|
|00002800| 11 f2 53 61 76 65 46 69 | 6c 65 28 6c 24 29 0d 10 |..SaveFi|le(l$)..|
|00002810| 22 2a 21 71 32 25 3d 73 | 61 76 65 61 73 25 3a c8 |"*!q2%=s|aveas%:.|
|00002820| 99 22 57 69 6d 70 5f 43 | 6c 6f 73 65 57 69 6e 64 |."Wimp_C|loseWind|
|00002830| 6f 77 22 2c 2c 71 32 25 | 0d 10 2c 05 e1 0d 10 36 |ow",,q2%|..,....6|
|00002840| 0e dd f2 6b 65 79 70 72 | 65 73 73 0d 10 40 32 e7 |...keypr|ess..@2.|
|00002850| 20 71 31 25 21 32 34 3d | 31 33 20 80 20 21 71 31 | q1%!24=|13 . !q1|
|00002860| 25 3d 73 61 76 65 61 73 | 25 20 8c 20 f2 73 61 76 |%=saveas|% . .sav|
|00002870| 65 66 69 6c 65 28 a3 2c | 22 22 29 3a e1 0d 10 4a |efile(.,|""):...J|
|00002880| 1e c8 99 22 57 69 6d 70 | 5f 50 72 6f 63 65 73 73 |..."Wimp|_Process|
|00002890| 4b 65 79 22 2c 71 31 25 | 21 32 34 0d 10 54 05 e1 |Key",q1%|!24..T..|
|000028a0| 0d 10 5e 0c dd f2 6f 6b | 28 65 24 29 0d 10 68 11 |..^...ok|(e$)..h.|
|000028b0| 65 72 72 6f 72 5f 66 6c | 61 67 25 3d 31 0d 10 72 |error_fl|ag%=1..r|
|000028c0| 0a 85 20 31 2c 65 24 0d | 10 7c 05 e1 0d 10 86 05 |.. 1,e$.|.|......|
|000028d0| 3a 0d 10 90 0f dd f2 66 | 61 74 61 6c 28 65 24 29 |:......f|atal(e$)|
|000028e0| 0d 10 9a 11 65 72 72 6f | 72 5f 66 6c 61 67 25 3d |....erro|r_flag%=|
|000028f0| 32 0d 10 a4 0a 85 20 31 | 2c 65 24 0d 10 ae 05 e1 |2..... 1|,e$.....|
|00002900| 0d 10 b8 05 3a 0d 10 c2 | 0a dd f2 73 61 76 65 0d |....:...|...save.|
|00002910| 10 cc 0d f2 67 65 74 66 | 6e 61 6d 65 0d 10 d6 21 |....getf|name...!|
|00002920| c8 99 20 22 57 69 6d 70 | 5f 47 65 74 50 6f 69 6e |.. "Wimp|_GetPoin|
|00002930| 74 65 72 49 6e 66 6f 22 | 2c 2c 71 31 25 0d 10 e0 |terInfo"|,,q1%...|
|00002940| 16 71 31 25 21 32 30 3d | 36 34 3a 71 31 25 21 33 |.q1%!20=|64:q1%!3|
|00002950| 32 3d 30 0d 10 ea 1a 71 | 31 25 21 33 36 3d 31 3a |2=0....q|1%!36=1:|
|00002960| 71 31 25 21 34 30 3d 71 | 31 25 21 31 32 0d 10 f4 |q1%!40=q|1%!12...|
|00002970| 11 71 31 25 21 34 34 3d | 71 31 25 21 31 36 0d 10 |.q1%!44=|q1%!16..|
|00002980| fe 0f 71 31 25 21 34 38 | 3d 21 71 31 25 0d 11 08 |..q1%!48|=!q1%...|
|00002990| 10 71 31 25 21 35 32 3d | 71 31 25 21 34 0d 11 12 |.q1%!52=|q1%!4...|
|000029a0| 10 71 31 25 21 35 36 3d | 31 30 31 39 32 0d 11 1c |.q1%!56=|10192...|
|000029b0| 0f 71 31 25 21 36 30 3d | 26 66 66 66 0d 11 26 16 |.q1%!60=|&fff..&.|
|000029c0| 24 28 71 31 25 2b 36 34 | 29 3d 4d 59 46 4e 41 4d |$(q1%+64|)=MYFNAM|
|000029d0| 45 24 0d 11 30 31 c8 99 | 20 22 57 69 6d 70 5f 53 |E$..01..| "Wimp_S|
|000029e0| 65 6e 64 4d 65 73 73 61 | 67 65 22 2c 31 37 2c 71 |endMessa|ge",17,q|
|000029f0| 31 25 2b 32 30 2c 71 31 | 25 21 31 32 2c 71 31 25 |1%+20,q1|%!12,q1%|
|00002a00| 21 31 36 0d 11 3a 05 e1 | 0d 11 44 0e dd f2 44 61 |!16..:..|..D...Da|
|00002a10| 74 61 53 61 76 65 0d 11 | 4e 1d f2 53 61 76 65 46 |taSave..|N..SaveF|
|00002a20| 69 6c 65 28 a4 67 6e 61 | 6d 65 28 71 31 25 2b 34 |ile(.gna|me(q1%+4|
|00002a30| 34 29 29 0d 11 58 21 71 | 31 25 21 31 32 3d 71 31 |4))..X!q|1%!12=q1|
|00002a40| 25 21 38 3a 71 31 25 21 | 31 36 3d 33 3a 21 71 31 |%!8:q1%!|16=3:!q1|
|00002a50| 25 3d 36 34 0d 11 62 2e | c8 99 20 22 57 69 6d 70 |%=64..b.|.. "Wimp|
|00002a60| 5f 53 65 6e 64 4d 65 73 | 73 61 67 65 22 2c 31 37 |_SendMes|sage",17|
|00002a70| 2c 71 31 25 2c 71 31 25 | 21 32 30 2c 71 31 25 21 |,q1%,q1%|!20,q1%!|
|00002a80| 32 34 0d 11 6c 05 e1 0d | 11 76 11 dd 20 a4 67 6e |24..l...|.v.. .gn|
|00002a90| 61 6d 65 28 70 74 72 29 | 0d 11 80 09 66 24 3d 22 |ame(ptr)|....f$="|
|00002aa0| 22 0d 11 8a 19 c8 95 20 | 3f 70 74 72 3c 3e 30 20 |"...... |?ptr<>0 |
|00002ab0| 80 20 3f 70 74 72 3c 3e | 31 33 0d 11 94 16 66 24 |. ?ptr<>|13....f$|
|00002ac0| 3d 66 24 2b bd 3f 70 74 | 72 3a 70 74 72 2b 3d 31 |=f$+.?pt|r:ptr+=1|
|00002ad0| 0d 11 9e 05 ce 0d 11 a8 | 07 3d 66 24 0d 11 b2 0e |........|.=f$....|
|00002ae0| dd f2 67 65 74 66 6e 61 | 6d 65 0d 11 bc 23 77 68 |..getfna|me...#wh|
|00002af0| 6f 6c 65 74 68 69 6e 67 | 24 3d a4 67 65 74 74 65 |olething|$=.gette|
|00002b00| 78 74 28 73 61 76 65 61 | 73 25 2c 34 29 0d 11 c6 |xt(savea|s%,4)...|
|00002b10| 22 e3 20 71 77 65 25 3d | a9 28 77 68 6f 6c 65 74 |". qwe%=|.(wholet|
|00002b20| 68 69 6e 67 24 29 20 b8 | 20 31 20 88 20 2d 31 0d |hing$) .| 1 . -1.|
|00002b30| 11 d0 27 e7 20 c1 77 68 | 6f 6c 65 74 68 69 6e 67 |..'. .wh|olething|
|00002b40| 24 2c 71 77 65 25 2c 31 | 29 3d 22 2e 22 20 8c 20 |$,qwe%,1|)="." . |
|00002b50| e5 20 8d 64 64 51 0d 11 | da 0a ed 20 71 77 65 25 |. .ddQ..|... qwe%|
|00002b60| 0d 11 e4 30 4d 59 46 4e | 41 4d 45 24 3d c1 77 68 |...0MYFN|AME$=.wh|
|00002b70| 6f 6c 65 74 68 69 6e 67 | 24 2c 71 77 65 25 2b 31 |olething|$,qwe%+1|
|00002b80| 2c a9 28 77 68 6f 6c 65 | 74 68 69 6e 67 24 29 29 |,.(whole|thing$))|
|00002b90| 0d 11 ee 05 e1 0d 11 f8 | 04 0d 12 02 19 dd f2 53 |........|.......S|
|00002ba0| 61 76 65 46 69 6c 65 28 | 4e 41 4d 45 53 41 56 45 |aveFile(|NAMESAVE|
|00002bb0| 24 29 0d 12 0c 19 f2 73 | 61 76 65 5f 70 69 63 73 |$).....s|ave_pics|
|00002bc0| 28 4e 41 4d 45 53 41 56 | 45 24 29 0d 12 16 05 e1 |(NAMESAV|E$).....|
|00002bd0| 0d 12 20 04 0d 12 2a 0f | dd f2 43 6c 6f 73 65 46 |.. ...*.|..CloseF|
|00002be0| 69 6c 65 0d 12 34 0e d9 | 20 23 46 49 4c 45 4f 55 |ile..4..| #FILEOU|
|00002bf0| 54 0d 12 3e 05 e1 0d 12 | 48 04 0d 12 52 14 20 dd |T..>....|H...R. .|
|00002c00| f2 64 72 61 77 5f 6e 65 | 77 5f 70 69 63 73 0d 12 |.draw_ne|w_pics..|
|00002c10| 5c 17 20 f2 69 6e 69 74 | 69 61 6c 69 73 65 5f 73 |\. .init|ialise_s|
|00002c20| 63 72 65 65 6e 0d 12 66 | 10 20 f2 64 72 61 77 5f |creen..f|. .draw_|
|00002c30| 66 69 72 73 74 0d 12 70 | 11 20 f2 64 72 61 77 5f |first..p|. .draw_|
|00002c40| 73 65 63 6f 6e 64 0d 12 | 7a 15 20 f2 63 61 6c 63 |second..|z. .calc|
|00002c50| 75 6c 61 74 65 5f 61 5f | 62 69 74 0d 12 84 09 20 |ulate_a_|bit.... |
|00002c60| 4f 4b 3d b9 0d 12 8e 06 | 20 e1 0d 12 98 05 20 0d |OK=.....| ..... .|
|00002c70| 12 a2 1b 20 dd f2 69 6e | 69 74 69 61 6c 69 73 65 |... ..in|itialise|
|00002c80| 5f 76 61 72 69 61 62 6c | 65 73 0d 12 ac 0c 20 4e |_variabl|es.... N|
|00002c90| 50 25 3d 33 30 30 0d 12 | b6 26 20 de 20 58 25 28 |P%=300..|.& . X%(|
|00002ca0| 4e 50 25 29 2c 59 25 28 | 4e 50 25 29 2c 41 25 28 |NP%),Y%(|NP%),A%(|
|00002cb0| 4e 50 25 29 2c 42 25 28 | 4e 50 25 29 0d 12 c0 16 |NP%),B%(|NP%)....|
|00002cc0| 20 de 20 58 49 28 4e 50 | 25 29 2c 59 49 28 4e 50 | . XI(NP|%),YI(NP|
|00002cd0| 25 29 0d 12 ca 0c 20 44 | 45 4c 25 3d 32 30 0d 12 |%).... D|EL%=20..|
|00002ce0| d4 0d 20 53 45 43 25 3d | 31 30 30 0d 12 de 13 20 |.. SEC%=|100.... |
|00002cf0| 43 4e 54 25 3d 30 3a 46 | 43 4e 54 25 3d 30 0d 12 |CNT%=0:F|CNT%=0..|
|00002d00| e8 0a 20 41 53 25 3d 31 | 0d 12 f2 06 20 e1 0d 12 |.. AS%=1|.... ...|
|00002d10| fc 05 20 0d 13 06 10 20 | dd f2 69 6e 69 74 61 67 |.. .... |..initag|
|00002d20| 61 69 6e 0d 13 10 13 20 | 43 4e 54 25 3d 30 3a 46 |ain.... |CNT%=0:F|
|00002d30| 43 4e 54 25 3d 30 0d 13 | 1a 0a 20 41 53 25 3d 31 |CNT%=0..|.. AS%=1|
|00002d40| 0d 13 24 06 20 e1 0d 13 | 2e 05 20 0d 13 38 16 20 |..$. ...|.. ..8. |
|00002d50| dd f2 63 61 6c 63 75 6c | 61 74 65 5f 61 5f 62 69 |..calcul|ate_a_bi|
|00002d60| 74 0d 13 42 1d 20 e7 20 | 43 4e 54 25 3e 3d 46 43 |t..B. . |CNT%>=FC|
|00002d70| 4e 54 25 20 8c 20 4d 4d | 25 3d 43 4e 54 25 0d 13 |NT% . MM|%=CNT%..|
|00002d80| 4c 1d 20 e7 20 43 4e 54 | 25 3c 46 43 4e 54 25 20 |L. . CNT|%<FCNT% |
|00002d90| 8c 20 4d 4d 25 3d 46 43 | 4e 54 25 0d 13 56 11 20 |. MM%=FC|NT%..V. |
|00002da0| e3 20 49 25 3d 31 20 b8 | 20 4d 4d 25 0d 13 60 20 |. I%=1 .| MM%..` |
|00002db0| 20 58 49 28 49 25 29 3d | 28 58 25 28 49 25 29 2d | XI(I%)=|(X%(I%)-|
|00002dc0| 41 25 28 49 25 29 29 2f | 53 45 43 25 0d 13 6a 20 |A%(I%))/|SEC%..j |
|00002dd0| 20 59 49 28 49 25 29 3d | 28 59 25 28 49 25 29 2d | YI(I%)=|(Y%(I%)-|
|00002de0| 42 25 28 49 25 29 29 2f | 53 45 43 25 0d 13 74 09 |B%(I%))/|SEC%..t.|
|00002df0| 20 ed 20 49 25 0d 13 7e | 06 20 e1 0d 13 88 05 20 | . I%..~|. ..... |
|00002e00| 0d 13 92 18 20 dd f2 64 | 72 61 77 70 69 63 31 28 |.... ..d|rawpic1(|
|00002e10| 6f 78 25 2c 6f 79 25 29 | 0d 13 9c 1e 20 ec 20 58 |ox%,oy%)|.... . X|
|00002e20| 25 28 31 29 2f 32 2b 6f | 78 25 2c 59 25 28 31 29 |%(1)/2+o|x%,Y%(1)|
|00002e30| 2f 32 2b 6f 79 25 0d 13 | a6 12 20 e3 20 4a 25 3d |/2+oy%..|.. . J%=|
|00002e40| 31 20 b8 20 43 4e 54 25 | 0d 13 b0 20 20 df 20 58 |1 . CNT%|... . X|
|00002e50| 25 28 4a 25 29 2f 32 2b | 6f 78 25 2c 59 25 28 4a |%(J%)/2+|ox%,Y%(J|
|00002e60| 25 29 2f 32 2b 6f 79 25 | 0d 13 ba 09 20 ed 20 4a |%)/2+oy%|.... . J|
|00002e70| 25 0d 13 c4 06 20 e1 0d | 13 ce 04 0d 13 d8 18 20 |%.... ..|....... |
|00002e80| dd f2 64 72 61 77 70 69 | 63 32 28 6f 78 25 2c 6f |..drawpi|c2(ox%,o|
|00002e90| 79 25 29 0d 13 e2 1e 20 | ec 20 41 25 28 31 29 2f |y%).... |. A%(1)/|
|00002ea0| 32 2b 6f 78 25 2c 42 25 | 28 31 29 2f 32 2b 6f 79 |2+ox%,B%|(1)/2+oy|
|00002eb0| 25 0d 13 ec 13 20 e3 20 | 4a 25 3d 31 20 b8 20 46 |%.... . |J%=1 . F|
|00002ec0| 43 4e 54 25 0d 13 f6 20 | 20 df 20 41 25 28 4a 25 |CNT%... | . A%(J%|
|00002ed0| 29 2f 32 2b 6f 78 25 2c | 42 25 28 4a 25 29 2f 32 |)/2+ox%,|B%(J%)/2|
|00002ee0| 2b 6f 79 25 0d 14 00 09 | 20 ed 20 4a 25 0d 14 0a |+oy%....| . J%...|
|00002ef0| 06 20 e1 0d 14 14 04 0d | 14 1e 14 20 dd f2 73 61 |. ......|... ..sa|
|00002f00| 76 65 5f 70 69 63 73 28 | 46 24 29 0d 14 28 1d 20 |ve_pics(|F$)..(. |
|00002f10| e7 20 43 4e 54 25 3e 3d | 46 43 4e 54 25 20 8c 20 |. CNT%>=|FCNT% . |
|00002f20| 4d 4d 25 3d 43 4e 54 25 | 0d 14 32 1d 20 e7 20 43 |MM%=CNT%|..2. . C|
|00002f30| 4e 54 25 3c 46 43 4e 54 | 25 20 8c 20 4d 4d 25 3d |NT%<FCNT|% . MM%=|
|00002f40| 46 43 4e 54 25 0d 14 3c | 0b 20 41 3d ae 20 46 24 |FCNT%..<|. A=. F$|
|00002f50| 0d 14 46 0d 20 f1 23 20 | 41 2c 4d 4d 25 0d 14 50 |..F. .# |A,MM%..P|
|00002f60| 11 20 e3 20 49 25 3d 31 | 20 b8 20 4d 4d 25 0d 14 |. . I%=1| . MM%..|
|00002f70| 5a 25 20 f1 23 20 41 2c | 58 25 28 49 25 29 2c 59 |Z% .# A,|X%(I%),Y|
|00002f80| 25 28 49 25 29 2c 41 25 | 28 49 25 29 2c 42 25 28 |%(I%),A%|(I%),B%(|
|00002f90| 49 25 29 0d 14 64 09 20 | ed 20 49 25 0d 14 6e 09 |I%)..d. |. I%..n.|
|00002fa0| 20 d9 23 20 41 0d 14 78 | 09 20 4f 4b 3d b9 0d 14 | .# A..x|. OK=...|
|00002fb0| 82 1b 20 ff 20 22 53 45 | 54 54 59 50 45 20 22 2b |.. . "SE|TTYPE "+|
|00002fc0| 46 24 2b 22 20 37 45 46 | 22 0d 14 8c 1d 20 f2 73 |F$+" 7EF|".... .s|
|00002fd0| 65 74 74 65 78 74 28 66 | 69 6c 65 69 6e 66 6f 25 |ettext(f|ileinfo%|
|00002fe0| 2c 33 2c 46 24 29 0d 14 | 96 1b 20 f2 73 65 74 74 |,3,F$)..|.. .sett|
|00002ff0| 65 78 74 28 73 61 76 65 | 61 73 25 2c 34 2c 46 24 |ext(save|as%,4,F$|
|00003000| 29 0d 14 a0 06 20 e1 0d | 14 aa 05 20 0d 14 b4 14 |).... ..|... ....|
|00003010| 20 dd f2 6c 6f 61 64 5f | 70 69 63 73 28 46 24 29 | ..load_|pics(F$)|
|00003020| 0d 14 be 0b 20 41 3d 8e | 20 46 24 0d 14 c8 0e 20 |.... A=.| F$.... |
|00003030| e8 23 20 41 2c 43 4e 54 | 25 0d 14 d2 12 20 e3 20 |.# A,CNT|%.... . |
|00003040| 49 25 3d 31 20 b8 20 43 | 4e 54 25 0d 14 dc 25 20 |I%=1 . C|NT%...% |
|00003050| e8 23 20 41 2c 58 25 28 | 49 25 29 2c 59 25 28 49 |.# A,X%(|I%),Y%(I|
|00003060| 25 29 2c 41 25 28 49 25 | 29 2c 42 25 28 49 25 29 |%),A%(I%|),B%(I%)|
|00003070| 0d 14 e6 09 20 ed 20 49 | 25 0d 14 f0 09 20 d9 23 |.... . I|%.... .#|
|00003080| 20 41 0d 14 fa 15 20 f2 | 63 61 6c 63 75 6c 61 74 | A.... .|calculat|
|00003090| 65 5f 61 5f 62 69 74 0d | 15 04 0a 20 41 53 25 3d |e_a_bit.|... AS%=|
|000030a0| 31 0d 15 0e 09 20 4f 4b | 3d b9 0d 15 18 0f 20 46 |1.... OK|=..... F|
|000030b0| 43 4e 54 25 3d 43 4e 54 | 25 0d 15 22 2b 20 f2 73 |CNT%=CNT|%.."+ .s|
|000030c0| 65 74 74 65 78 74 28 70 | 69 63 31 25 2c 32 2c 22 |ettext(p|ic1%,2,"|
|000030d0| 4e 6f 2e 70 6f 69 6e 74 | 73 3a 22 2b c3 28 43 4e |No.point|s:"+.(CN|
|000030e0| 54 25 29 29 0d 15 2c 2c | 20 f2 73 65 74 74 65 78 |T%))..,,| .settex|
|000030f0| 74 28 70 69 63 32 25 2c | 32 2c 22 4e 6f 2e 70 6f |t(pic2%,|2,"No.po|
|00003100| 69 6e 74 73 3a 22 2b c3 | 28 46 43 4e 54 25 29 29 |ints:"+.|(FCNT%))|
|00003110| 0d 15 36 1b 20 f2 73 65 | 74 74 65 78 74 28 73 61 |..6. .se|ttext(sa|
|00003120| 76 65 61 73 25 2c 34 2c | 46 24 29 0d 15 40 05 e1 |veas%,4,|F$)..@..|
|00003130| 0d 15 4a 04 0d 15 54 1b | 20 dd f2 61 6e 69 6d 61 |..J...T.| ..anima|
|00003140| 74 65 28 42 45 25 2c 45 | 4e 25 2c 53 50 25 29 0d |te(BE%,E|N%,SP%).|
|00003150| 15 5e 1b 20 e3 20 49 25 | 3d 42 45 25 20 b8 20 45 |.^. . I%|=BE% . E|
|00003160| 4e 25 2d 31 20 88 20 53 | 50 25 0d 15 68 25 20 42 |N%-1 . S|P%..h% B|
|00003170| 41 4e 4b 25 3d 42 41 4e | 4b 25 20 82 20 33 3a c8 |ANK%=BAN|K% . 3:.|
|00003180| 99 20 36 2c 31 31 32 2c | 42 41 4e 4b 25 3a db 0d |. 6,112,|BANK%:..|
|00003190| 15 72 32 20 ec 20 28 41 | 25 28 31 29 2b 28 58 49 |.r2 . (A|%(1)+(XI|
|000031a0| 28 31 29 2a 49 25 29 29 | 2a 4f 54 2c 28 42 25 28 |(1)*I%))|*OT,(B%(|
|000031b0| 31 29 2b 28 59 49 28 31 | 29 2a 49 25 29 29 2a 4f |1)+(YI(1|)*I%))*O|
|000031c0| 54 0d 15 7c 12 20 e3 20 | 4a 25 3d 31 20 b8 20 43 |T..|. . |J%=1 . C|
|000031d0| 4e 54 25 0d 15 86 36 20 | df 20 28 41 25 28 4a 25 |NT%...6 |. (A%(J%|
|000031e0| 29 2b 28 58 49 28 4a 25 | 29 2a 49 25 29 29 2a 4f |)+(XI(J%|)*I%))*O|
|000031f0| 54 2c 28 42 25 28 4a 25 | 29 2b 28 59 49 28 4a 25 |T,(B%(J%|)+(YI(J%|
|00003200| 29 2a 49 25 29 29 2a 4f | 54 0d 15 90 09 20 ed 20 |)*I%))*O|T.... . |
|00003210| 4a 25 0d 15 a4 16 20 c8 | 99 20 36 2c 31 31 33 2c |J%.... .|. 6,113,|
|00003220| 42 41 4e 4b 25 3a c8 96 | 0d 15 ae 31 20 42 55 54 |BANK%:..|...1 BUT|
|00003230| 25 3d 30 3a c8 97 20 58 | 50 4f 53 25 2c 59 50 4f |%=0:.. X|POS%,YPO|
|00003240| 53 25 2c 42 55 54 25 3a | e7 20 42 55 54 25 3d 32 |S%,BUT%:|. BUT%=2|
|00003250| 20 45 58 49 54 3d b9 3a | e1 0d 15 b8 10 20 e7 20 | EXIT=.:|..... . |
|00003260| 42 55 54 25 3c 3e 30 20 | 8c 0d 15 c2 33 20 e7 20 |BUT%<>0 |....3 . |
|00003270| 42 55 54 25 3d 31 20 80 | 20 49 25 3e 42 45 25 2b |BUT%=1 .| I%>BE%+|
|00003280| 53 50 25 20 80 20 42 45 | 25 3d 31 20 8c 20 49 25 |SP% . BE|%=1 . I%|
|00003290| 2d 3d 53 50 25 3a e5 20 | 8d 44 68 55 0d 15 cc 35 |-=SP%:. |.DhU...5|
|000032a0| 20 e7 20 42 55 54 25 3d | 34 20 80 20 49 25 3c 45 | . BUT%=|4 . I%<E|
|000032b0| 4e 25 2d 53 50 25 2d 31 | 20 80 20 42 45 25 3d 31 |N%-SP%-1| . BE%=1|
|000032c0| 20 8c 20 49 25 2b 3d 53 | 50 25 3a e5 20 8d 44 68 | . I%+=S|P%:. .Dh|
|000032d0| 55 0d 15 d6 36 20 e7 20 | 42 55 54 25 3d 34 20 80 |U...6 . |BUT%=4 .|
|000032e0| 20 49 25 3c 42 45 25 2b | 53 50 25 20 80 20 42 45 | I%<BE%+|SP% . BE|
|000032f0| 25 3d 53 45 43 25 20 8c | 20 49 25 2d 3d 53 50 25 |%=SEC% .| I%-=SP%|
|00003300| 3a e5 20 8d 44 68 55 0d | 15 e0 38 20 e7 20 42 55 |:. .DhU.|..8 . BU|
|00003310| 54 25 3d 31 20 80 20 49 | 25 3e 45 4e 25 2d 53 50 |T%=1 . I|%>EN%-SP|
|00003320| 25 2d 31 20 80 20 42 45 | 25 3d 53 45 43 25 20 8c |%-1 . BE|%=SEC% .|
|00003330| 20 49 25 2b 3d 53 50 25 | 3a e5 20 8d 44 68 55 0d | I%+=SP%|:. .DhU.|
|00003340| 15 ea 06 20 cd 0d 15 f4 | 0c 20 41 24 3d bf 28 31 |... ....|. A$=.(1|
|00003350| 29 0d 15 fe 0f 20 e7 20 | 41 24 3c 3e 22 22 20 8c |).... . |A$<>"" .|
|00003360| 0d 16 08 36 20 e7 20 a6 | 2d 35 38 20 80 20 53 50 |...6 . .|-58 . SP|
|00003370| 25 3c 28 45 4e 25 2d 42 | 45 25 29 2f 32 20 8c 20 |%<(EN%-B|E%)/2 . |
|00003380| 53 50 25 2b 3d 31 3a 41 | 41 53 25 3d 53 50 25 3a |SP%+=1:A|AS%=SP%:|
|00003390| e5 20 8d 44 5e 55 0d 16 | 12 2c 20 e7 20 a6 2d 34 |. .D^U..|., . .-4|
|000033a0| 32 20 80 20 53 50 25 3e | 32 20 8c 20 53 50 25 2d |2 . SP%>|2 . SP%-|
|000033b0| 3d 31 3a 41 41 53 25 3d | 53 50 25 3a e5 20 8d 44 |=1:AAS%=|SP%:. .D|
|000033c0| 5e 55 0d 16 13 12 20 e7 | 20 53 50 25 3d 30 20 53 |^U.... .| SP%=0 S|
|000033d0| 50 25 3d 31 0d 16 1c 1d | 20 e7 20 a6 2d 32 36 20 |P%=1....| . .-26 |
|000033e0| 80 20 4f 54 3e 2e 31 20 | 8c 20 4f 54 2d 3d 2e 30 |. OT>.1 |. OT-=.0|
|000033f0| 35 0d 16 26 1d 20 e7 20 | a6 2d 31 32 32 20 80 20 |5..&. . |.-122 . |
|00003400| 4f 54 3c 34 20 8c 20 4f | 54 2b 3d 2e 30 35 0d 16 |OT<4 . O|T+=.05..|
|00003410| 30 15 20 e7 20 a6 2d 31 | 31 33 20 45 58 49 54 3d |0. . .-1|13 EXIT=|
|00003420| b9 3a e1 0d 16 3a 0f 20 | e7 20 41 24 3d 22 20 22 |.:...:. |. A$=" "|
|00003430| 20 8c 0d 16 44 06 20 f5 | 0d 16 4e 0c 20 41 24 3d | ...D. .|..N. A$=|
|00003440| bf 28 31 29 0d 16 58 13 | 20 c8 97 20 50 50 25 2c |.(1)..X.| .. PP%,|
|00003450| 57 57 25 2c 45 45 25 0d | 16 62 16 20 fd 20 45 45 |WW%,EE%.|.b. . EE|
|00003460| 25 3c 3e 30 20 84 20 41 | 24 3d 22 20 22 0d 16 6c |%<>0 . A|$=" "..l|
|00003470| 06 20 cd 0d 16 76 06 20 | cd 0d 16 80 09 20 ed 20 |. ...v. |..... . |
|00003480| 49 25 0d 16 8a 06 20 e1 | 0d 16 94 04 0d 16 9e 0e |I%.... .|........|
|00003490| 20 dd f2 64 69 73 70 6c | 61 79 0d 16 a8 08 20 eb | ..displ|ay.... .|
|000034a0| 20 30 0d 16 b2 06 20 87 | 0d 16 bc 15 20 e3 20 4d | 0.... .|.... . M|
|000034b0| 4d 25 3d 43 4e 54 25 20 | b8 20 33 30 30 0d 16 c6 |M%=CNT% |. 300...|
|000034c0| 26 20 58 25 28 4d 4d 25 | 29 3d 58 25 28 43 4e 54 |& X%(MM%|)=X%(CNT|
|000034d0| 25 29 3a 59 25 28 4d 4d | 25 29 3d 59 25 28 43 4e |%):Y%(MM|%)=Y%(CN|
|000034e0| 54 25 29 0d 16 d0 0a 20 | ed 20 4d 4d 25 0d 16 da |T%).... |. MM%...|
|000034f0| 16 20 e3 20 4d 4d 25 3d | 46 43 4e 54 25 20 b8 20 |. . MM%=|FCNT% . |
|00003500| 33 30 30 0d 16 e4 28 20 | 41 25 28 4d 4d 25 29 3d |300...( |A%(MM%)=|
|00003510| 41 25 28 46 43 4e 54 25 | 29 3a 42 25 28 4d 4d 25 |A%(FCNT%|):B%(MM%|
|00003520| 29 3d 42 25 28 46 43 4e | 54 25 29 0d 16 ee 0a 20 |)=B%(FCN|T%).... |
|00003530| ed 20 4d 4d 25 0d 16 f8 | 15 20 f2 63 61 6c 63 75 |. MM%...|. .calcu|
|00003540| 6c 61 74 65 5f 61 5f 62 | 69 74 0d 17 02 0a 20 5a |late_a_b|it.... Z|
|00003550| 54 25 3d 31 0d 17 0c 0a | 20 5a 42 25 3d 31 0d 17 |T%=1....| ZB%=1..|
|00003560| 16 12 20 41 41 53 25 3d | 41 53 25 3a 4f 54 3d 31 |.. AAS%=|AS%:OT=1|
|00003570| 0d 17 20 3e 20 4f 4f 58 | 25 3d 33 32 30 2d 28 28 |.. > OOX|%=320-((|
|00003580| 28 5a 54 25 2f 5a 42 25 | 29 2a 33 32 30 29 2f 32 |(ZT%/ZB%|)*320)/2|
|00003590| 29 3a 4f 4f 59 25 3d 32 | 35 36 2d 28 28 28 5a 54 |):OOY%=2|56-(((ZT|
|000035a0| 25 2f 5a 42 25 29 2a 32 | 35 36 29 2f 32 29 0d 17 |%/ZB%)*2|56)/2)..|
|000035b0| 2a 0b 20 45 58 49 54 3d | a3 0d 17 34 09 20 c8 97 |*. EXIT=|...4. ..|
|000035c0| 20 87 0d 17 3e 06 20 f5 | 0d 17 48 0f 20 c8 8e 20 | ...>. .|..H. .. |
|000035d0| 66 69 6c 6c 25 20 ca 0d | 17 52 0a 20 c9 20 30 20 |fill% ..|.R. . 0 |
|000035e0| 3a 0d 17 5c 1d 20 f2 61 | 6e 69 6d 61 74 65 28 31 |:..\. .a|nimate(1|
|000035f0| 2c 53 45 43 25 2c 94 28 | 41 41 53 25 29 29 0d 17 |,SEC%,.(|AAS%))..|
|00003600| 66 2b 20 e7 20 45 58 49 | 54 3d a3 20 f2 61 6e 69 |f+ . EXI|T=. .ani|
|00003610| 6d 61 74 65 28 53 45 43 | 25 2c 32 2c 94 28 41 41 |mate(SEC|%,2,.(AA|
|00003620| 53 25 29 2a 28 2d 31 29 | 29 0d 17 70 0a 20 c9 20 |S%)*(-1)|)..p. . |
|00003630| 31 20 3a 0d 17 7a 23 20 | f2 61 6e 69 6d 61 74 65 |1 :..z# |.animate|
|00003640| 66 69 6c 6c 65 64 28 31 | 2c 53 45 43 25 2c 94 28 |filled(1|,SEC%,.(|
|00003650| 41 41 53 25 29 29 0d 17 | 84 31 20 e7 20 45 58 49 |AAS%))..|.1 . EXI|
|00003660| 54 3d a3 20 f2 61 6e 69 | 6d 61 74 65 66 69 6c 6c |T=. .ani|matefill|
|00003670| 65 64 28 53 45 43 25 2c | 32 2c 94 28 41 41 53 25 |ed(SEC%,|2,.(AAS%|
|00003680| 29 2a 28 2d 31 29 29 0d | 17 8e 06 20 cb 0d 17 98 |)*(-1)).|... ....|
|00003690| 0d 20 fd 20 45 58 49 54 | 3d b9 0d 17 a2 09 20 c8 |. . EXIT|=..... .|
|000036a0| 97 20 ee 0d 17 ac 18 20 | c8 97 20 c8 93 20 30 2c |. ..... |.. .. 0,|
|000036b0| 30 2c 31 32 37 39 2c 31 | 30 32 33 0d 17 b6 09 20 |0,1279,1|023.... |
|000036c0| 4f 4b 3d b9 0d 17 c0 0b | 20 c8 91 20 30 2c 30 0d |OK=.....| .. 0,0.|
|000036d0| 17 ca 06 20 e1 0d 17 d4 | 04 0d 17 de 21 20 dd f2 |... ....|....! ..|
|000036e0| 61 6e 69 6d 61 74 65 66 | 69 6c 6c 65 64 28 42 45 |animatef|illed(BE|
|000036f0| 25 2c 45 4e 25 2c 53 50 | 25 29 0d 17 e8 1b 20 e3 |%,EN%,SP|%).... .|
|00003700| 20 49 25 3d 42 45 25 20 | b8 20 45 4e 25 2d 31 20 | I%=BE% |. EN%-1 |
|00003710| 88 20 53 50 25 0d 17 f2 | 25 20 42 41 4e 4b 25 3d |. SP%...|% BANK%=|
|00003720| 42 41 4e 4b 25 20 82 20 | 33 3a c8 99 20 36 2c 31 |BANK% . |3:.. 6,1|
|00003730| 31 32 2c 42 41 4e 4b 25 | 3a db 0d 17 fc 16 20 e3 |12,BANK%|:..... .|
|00003740| 20 4a 25 3d 31 20 b8 20 | 43 4e 54 25 20 88 20 33 | J%=1 . |CNT% . 3|
|00003750| 0d 18 10 36 20 ec 20 28 | 41 25 28 4a 25 29 2b 28 |...6 . (|A%(J%)+(|
|00003760| 58 49 28 4a 25 29 2a 49 | 25 29 29 2a 4f 54 2c 28 |XI(J%)*I|%))*OT,(|
|00003770| 42 25 28 4a 25 29 2b 28 | 59 49 28 4a 25 29 2a 49 |B%(J%)+(|YI(J%)*I|
|00003780| 25 29 29 2a 4f 54 0d 18 | 1a 3e 20 ec 20 28 41 25 |%))*OT..|.> . (A%|
|00003790| 28 4a 25 2b 31 29 2b 28 | 58 49 28 4a 25 2b 31 29 |(J%+1)+(|XI(J%+1)|
|000037a0| 2a 49 25 29 29 2a 4f 54 | 2c 28 42 25 28 4a 25 2b |*I%))*OT|,(B%(J%+|
|000037b0| 31 29 2b 28 59 49 28 4a | 25 2b 31 29 2a 49 25 29 |1)+(YI(J|%+1)*I%)|
|000037c0| 29 2a 4f 54 0d 18 24 4f | 20 e7 20 4a 25 2b 32 3c |)*OT..$O| . J%+2<|
|000037d0| 3d 43 4e 54 25 20 f0 20 | 26 35 35 2c 28 41 25 28 |=CNT% . |&55,(A%(|
|000037e0| 4a 25 2b 32 29 2b 28 58 | 49 28 4a 25 2b 32 29 2a |J%+2)+(X|I(J%+2)*|
|000037f0| 49 25 29 29 2a 4f 54 2c | 28 42 25 28 4a 25 2b 32 |I%))*OT,|(B%(J%+2|
|00003800| 29 2b 28 59 49 28 4a 25 | 2b 32 29 2a 49 25 29 29 |)+(YI(J%|+2)*I%))|
|00003810| 2a 4f 54 0d 18 2e 09 20 | ed 20 4a 25 0d 18 38 16 |*OT.... |. J%..8.|
|00003820| 20 c8 99 20 36 2c 31 31 | 33 2c 42 41 4e 4b 25 3a | .. 6,11|3,BANK%:|
|00003830| c8 96 0d 18 42 31 20 42 | 55 54 25 3d 30 3a c8 97 |....B1 B|UT%=0:..|
|00003840| 20 58 50 4f 53 25 2c 59 | 50 4f 53 25 2c 42 55 54 | XPOS%,Y|POS%,BUT|
|00003850| 25 3a e7 20 42 55 54 25 | 3d 32 20 45 58 49 54 3d |%:. BUT%|=2 EXIT=|
|00003860| b9 3a e1 0d 18 4c 10 20 | e7 20 42 55 54 25 3c 3e |.:...L. |. BUT%<>|
|00003870| 30 20 8c 0d 18 56 33 20 | e7 20 42 55 54 25 3d 31 |0 ...V3 |. BUT%=1|
|00003880| 20 80 20 49 25 3e 42 45 | 25 2b 53 50 25 20 80 20 | . I%>BE|%+SP% . |
|00003890| 42 45 25 3d 31 20 8c 20 | 49 25 2d 3d 53 50 25 3a |BE%=1 . |I%-=SP%:|
|000038a0| e5 20 8d 64 72 57 0d 18 | 60 35 20 e7 20 42 55 54 |. .drW..|`5 . BUT|
|000038b0| 25 3d 34 20 80 20 49 25 | 3c 45 4e 25 2d 53 50 25 |%=4 . I%|<EN%-SP%|
|000038c0| 2d 31 20 80 20 42 45 25 | 3d 31 20 8c 20 49 25 2b |-1 . BE%|=1 . I%+|
|000038d0| 3d 53 50 25 3a e5 20 8d | 64 72 57 0d 18 6a 36 20 |=SP%:. .|drW..j6 |
|000038e0| e7 20 42 55 54 25 3d 34 | 20 80 20 49 25 3c 42 45 |. BUT%=4| . I%<BE|
|000038f0| 25 2b 53 50 25 20 80 20 | 42 45 25 3d 53 45 43 25 |%+SP% . |BE%=SEC%|
|00003900| 20 8c 20 49 25 2d 3d 53 | 50 25 3a e5 20 8d 64 72 | . I%-=S|P%:. .dr|
|00003910| 57 0d 18 74 38 20 e7 20 | 42 55 54 25 3d 31 20 80 |W..t8 . |BUT%=1 .|
|00003920| 20 49 25 3e 45 4e 25 2d | 53 50 25 2d 31 20 80 20 | I%>EN%-|SP%-1 . |
|00003930| 42 45 25 3d 53 45 43 25 | 20 8c 20 49 25 2b 3d 53 |BE%=SEC%| . I%+=S|
|00003940| 50 25 3a e5 20 8d 64 72 | 57 0d 18 7e 06 20 cd 0d |P%:. .dr|W..~. ..|
|00003950| 18 88 0c 20 41 24 3d bf | 28 31 29 0d 18 92 0f 20 |... A$=.|(1).... |
|00003960| e7 20 41 24 3c 3e 22 22 | 20 8c 0d 18 9c 36 20 e7 |. A$<>""| ....6 .|
|00003970| 20 a6 2d 35 38 20 80 20 | 53 50 25 3c 28 45 4e 25 | .-58 . |SP%<(EN%|
|00003980| 2d 42 45 25 29 2f 32 20 | 8c 20 53 50 25 2b 3d 31 |-BE%)/2 |. SP%+=1|
|00003990| 3a 41 41 53 25 3d 53 50 | 25 3a e5 20 8d 64 68 57 |:AAS%=SP|%:. .dhW|
|000039a0| 0d 18 a6 2c 20 e7 20 a6 | 2d 34 32 20 80 20 53 50 |..., . .|-42 . SP|
|000039b0| 25 3e 32 20 8c 20 53 50 | 25 2d 3d 31 3a 41 41 53 |%>2 . SP|%-=1:AAS|
|000039c0| 25 3d 53 50 25 3a e5 20 | 8d 64 68 57 0d 18 a7 12 |%=SP%:. |.dhW....|
|000039d0| 20 e7 20 53 50 25 3d 30 | 20 53 50 25 3d 31 0d 18 | . SP%=0| SP%=1..|
|000039e0| b0 1d 20 e7 20 a6 2d 32 | 36 20 80 20 4f 54 3e 2e |.. . .-2|6 . OT>.|
|000039f0| 31 20 8c 20 4f 54 2d 3d | 2e 30 35 0d 18 ba 1d 20 |1 . OT-=|.05.... |
|00003a00| e7 20 a6 2d 31 32 32 20 | 80 20 4f 54 3c 34 20 8c |. .-122 |. OT<4 .|
|00003a10| 20 4f 54 2b 3d 2e 30 35 | 0d 18 c4 15 20 e7 20 a6 | OT+=.05|.... . .|
|00003a20| 2d 31 31 33 20 45 58 49 | 54 3d b9 3a e1 0d 18 ce |-113 EXI|T=.:....|
|00003a30| 0f 20 e7 20 41 24 3d 22 | 20 22 20 8c 0d 18 d8 06 |. . A$="| " .....|
|00003a40| 20 f5 0d 18 e2 0c 20 41 | 24 3d bf 28 31 29 0d 18 | ..... A|$=.(1)..|
|00003a50| ec 13 20 c8 97 20 50 50 | 25 2c 57 57 25 2c 45 45 |.. .. PP|%,WW%,EE|
|00003a60| 25 0d 18 f6 16 20 fd 20 | 45 45 25 3c 3e 30 20 84 |%.... . |EE%<>0 .|
|00003a70| 20 41 24 3d 22 20 22 0d | 19 00 06 20 cd 0d 19 0a | A$=" ".|... ....|
|00003a80| 06 20 cd 0d 19 14 09 20 | ed 20 49 25 0d 19 1e 06 |. ..... |. I%....|
|00003a90| 20 e1 0d ff | | ... | |
+--------+-------------------------+-------------------------+--------+--------+
